內嵌圖表 每一個內嵌圖表就是一個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 = ...
留言
張貼留言