VBA插入圖表
在工作中圖表通常比表格更能清楚地呈現數據趨勢。
幸運的是，我們可以使用「VBA快速插入圖表」，省去手動操作的麻煩。
如要將以下數據插入圖表。
輸入巨集
※輸入以下指令※
Sub 插入圖表()
Range("A1").CurrentRegion.Select
ActiveSheet.Shapes.AddChart
End Sub
執行巨集
點選「開發人員」-「 巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則快速將「A1區域資料」插入圖表。
語法說明
Range(“A1”).CurrentRegion.Select
‘選取「A1儲存格」向右與向下到空白欄與空白列邊界的範圍，也就是「選取」目前區域儲存格。
ActiveSheet.Shapes.AddChart
‘在目前的工作表中新增圖表
指定圖表類型
上方語法為自動插入圖表，若想指定圖表的類型，則於後方加入圖表種類語法。
ActiveSheet.Shapes.AddChart xlLine
則圖表類型為折線圖。
xlColumnClustered – 集群柱狀圖 (Clustered Column Chart)
xlColumnStacked – 堆疊柱狀圖 (Stacked Column Chart)
xlColumnStacked100 – 100% 堆疊柱狀圖 (100% Stacked Column Chart)
xlLine – 折線圖 (Line Chart)
xlLineStacked – 堆疊折線圖 (Stacked Line Chart)
xlLineStacked100 – 100% 堆疊折線圖 (100% Stacked Line Chart)
xlPie – 圓餅圖 (Pie Chart)
xlPieExploded – 爆炸圓餅圖 (Exploded Pie Chart)
xlBarClustered – 集群橫條圖 (Clustered Bar Chart)
xlBarStacked – 堆疊橫條圖 (Stacked Bar Chart)
xlBarStacked100 – 100% 堆疊橫條圖 (100% Stacked Bar Chart)
xlArea – 區域圖 (Area Chart)
xlAreaStacked – 堆疊區域圖 (Stacked Area Chart)
xlAreaStacked100 – 100% 堆疊區域圖 (100% Stacked Area Chart)
xlDoughnut – 圓環圖 (Doughnut Chart)
xlRadar – 雷達圖 (Radar Chart)
xlRadarFilled – 填滿雷達圖 (Filled Radar Chart)
xlXYScatter – XY 散點圖 (Scatter Chart)
xlXYScatterLines – 含折線的散點圖 (Scatter with Straight Lines)
xlBubble – 氣泡圖 (Bubble Chart)