Reference:
用 VBA 為新增圖表
Sheet1.Select
ActiveSheet.Shapes.AddChart.Select '新增圖表
ActiveChart.ChartType = xlLine '折線圖
With ActiveChart.Parent
.Name = "3260.TW" '命名
.Height = Range("A2:F12").Height '高
.Width = Range("A2:F12").Width '寬
.Top = Range("A2").Top '位置
.Left = Range("A2").Left '位置
End With
也可以用pixel數
With ActiveChart.Parent
.Height = 325 ' resize
.Width = 500 ' resize
.Top = 100 ' reposition
.Left = 100 ' reposition
End With