【VBA】如何製作圖表

內嵌圖表

每一個內嵌圖表就是一個Chart 物件，包含在ChartObject 物件中。 ChartObject 物件是Chart物件的容器，透過 ChartObject 物件的屬性和方法可以設定內嵌圖表的外觀和大小。 每個工作表都有一個 ChartObjects 集合，ChartObject 物件會存在其中。 要建立內嵌圖表時可以使用 ChartObjects 集合的 Add 方法，其語法如下：

工作表.ChartObjects.Add(Left, Top, Width, Height)

---

ChartType 屬性

使用 ChartType 屬性可以設定或讀取圖表類型，預設值為 xlColumnClustered(群組直條圖)。 例如：設 ch 圖表物件的圖表類型為折線圖，寫法為：

ch.ChartType = xlLine(折線圖)

---

若將 PlotBy:設為xlRows，則圖表依公司別繪製圖表。

設定資料來源範例:
ch.SetSourceData Source:=Worksheets("工作表1").Range("A1:D3"), PlotBy:=xlRows

若將 PlotBy:設為xlColumns，則圖表依月份繪製圖表。

設定資料來源範例:
ch.SetSourceData Source:=Worksheets("工作表1").Range("A1:D3"), PlotBy:=xlColumns

Sub Chart()

Dim co As ChartObject:
Dim ch As Chart

Set co = Worksheets("工作表1").ChartObjects.Add(0, 130, 400, 300)
Set ch = co.Chart

ch.ChartType = xlLine 

ch.SetSourceData Source:=Worksheets("工作表1").Range("A1:D3"), PlotBy:=xlRows

ch.HasTitle = True
ch.ChartTitle.Text = "銷售報表"

End Sub