ทำกราฟโชว์ที่Sheetหลัก (VBA)
Posted: Wed Apr 20, 2016 2:36 pm
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
Code: Select all
Dim c As Object
For Each c In ActiveSheet.Shapes
If Left(c.Name, 5) = "Chart" Then
c.Delete
End If
Next c
Sheets("หน้าหลัก").Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("กราฟ").Range("$B$3:$H$51")