VBA插入圖表並設計樣式
前一篇介紹到使用「VBA插入圖表與輸入標題」，但圖表顯得有點單調，那如果想用「內建的設計樣式」該怎麼做呢？
如要將以下數據插入圖表與設計樣式。
輸入巨集
※輸入以下指令※
Sub 插入圖表並設計樣式()
Range("A1").CurrentRegion.Select
ActiveSheet.Shapes.AddChart
With ActiveSheet.ChartObjects(1).Chart
.ChartStyle = 209
.HasTitle = True
.ChartTitle.Text = "圖表名稱"
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X座標軸標題"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "Y座標軸標題"
End With
End With
End Sub
執行巨集
點選「開發人員」-「 巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則快速將「A1區域資料」插入圖表與設計樣式。
語法說明
ActiveSheet.ChartObjects(1).Chart.ChartStyle = 209
‘圖表樣式設定為「209」。
‘不知道「樣式」為多少時，可以先使用「錄製巨集」，選取想要的樣式，結束錄製後則可取得其樣式編號。