VBA：練習畫圓餅圖(根據集保庫存資料)

整理持股等級的圓餅圖：

1.code：

	Sub 圓餅圖(RANGE_ADDRESS)
	A = ActiveSheet.Range(RANGE_ADDRESS).Left
	b = ActiveSheet.Range(RANGE_ADDRESS).Top
	Set myChart = ActiveSheet.ChartObjects.Add(A, b, 800, 324)
	With myChart.Chart
	.ChartType = xlPie
	.SetSourceData SOURCE:=Range("$AO$1:$AO$2,$AQ$1:$AQ$2,$AS$1:$AS$2,$AM$1:$AM$2")
	.Legend.Format.TextFrame2.TextRange.Font.Size = 25
	End With
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

入門篇：MSDN

2.先整理原始資料：如下。

圖1.

小編將原始資料放在AQ1開始的儲存格，所以資料來原設定如下：

.SetSourceData SOURCE:=Range("$AO$1:$AO$2,$AQ$1:$AQ$2,$AS$1:$AS$2,$AM$1:$AM$2")

因為這個副程式，小編是設定位置方式，大小固定，所以呼叫時，要給他加上儲存格位置。

EX:CALL 圓餅圖("A2") 

3.執行結果如下：

圖2.