อยากถามวิธีการสร้างกราฟให้เหมือนเอกสารที่แนบมาค่ะ

[Palmib]

ไฟล์ตัวอย่างค่ะ แก้แค่กราฟแรกไปนะคะ
แล้วคอมเมนต์ไว้ถึงรันได้ค่ะ

[Palmib]

ชื่อชีทจริงๆ มันคือ ("PSA_KPOV chart_" & wn)
ประมานนี้ค่ะ ต้อง pass ค่า wn เข้าไปด้วย
แต่ที่หนูแนบไป หนูเอาค่า wn ออกแล้วค่ะ
แล้วใส่เป็น 45 ไปแทน

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

    With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "PSA KOV CHART"
    .Axes(xlCategory, xlPrimary).HasTitle = False
    .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    With ActiveSheet.Shapes(1)
        .Left = Worksheets("PSA_KPOV chart_45").Range("N2").Left
        .Top = Worksheets("PSA_KPOV chart_45").Range("N2").Top
        .Height = Worksheets("PSA_KPOV chart_45").Range("N2:N30").Height
        .Width = Worksheets("PSA_KPOV chart_45").Range("N2:V30").Width
    End With