ต้องการแสดงกกราฟโดยใช้ปุ่ม

[Wirayut]

เรียนสอบถามท่านผู้รู้ครับ

ผมต้องการแสดงกราฟ โดยการใช้ ปุ่ม (Button3) เพื่อแสดงข้อมูล Oder Mount ออกมาเป็นกราฟ

Code***

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim myPT As PivotTable
Set myPT = ActiveSheet.PivotTables(8)
myPT.PivotSelect ("")
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
ActiveChart.Parent.Left = Range("I1").Left
ActiveChart.Parent.Top = Range("I1").Top
Range("A2").Select
Application.ScreenUpdating = True

End Sub

[snasui]

กราฟที่ต้องการหน้าตาเป็นอย่างไรครับ Code ที่เขียนมาเองแล้วนั้น ติดขัดที่บรรทัดใดครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code ในฟอรัมเพื่อสะดวกในการอ่านดูวิธีการที่ Link นี้ครับ viewtopic.php?f=3&t=1187

[Wirayut]

football location.xlsm

Code: Select all

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim myPT As PivotTable
Set myPT = ActiveSheet.PivotTables(8)
myPT.PivotSelect ("")
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
ActiveChart.Parent.Left = Range("I1").Left
ActiveChart.Parent.Top = Range("I1").Top
Range("A2").Select
Application.ScreenUpdating = True

End Sub

ปัญหาของโค้ด
Set myPT = ActiveSheet.PivotTables(8)

[snasui]

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

Code: Select all

Private Sub CommandButton3_Click()
    Application.ScreenUpdating = False
    Dim myPT As PivotTable
    Set myPT = ActiveSheet.PivotTables("PivotTable8")
    myPT.PivotSelect ("")
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:=myPT.Parent.Name
    ActiveChart.Parent.Left = Range("I1").Left
    ActiveChart.Parent.Top = Range("I1").Top
    Range("A2").Select
    Application.ScreenUpdating = True
End Sub

[Wirayut]

ขอบคุณมากครับอาจารย์