VBA插入圖例與設定圖例位置
Excel圖例(Legend)是透過不同顏色或樣式標示每個數據系列，讓讀者能快速理解各數據類型的對應關係，那要如何使用「VBA插入圖例與設定圖例位置」呢？
如要將以下數據繪製圖表，插入圖例與設定圖例位置。
輸入巨集
※輸入以下指令※
Sub 插入圖例與設定圖例位置()
Range("A1").CurrentRegion.Select
ActiveSheet.Shapes.AddChart
With ActiveSheet.ChartObjects(1).Chart
.HasLegend = True
.Legend.Position = xlLegendPositionRight
End With
End Sub
執行巨集
點選「開發人員」-「 巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則快速將「A1區域資料」繪製圖表，並插入圖例與設定圖例至右側。
語法說明
ActiveSheet.ChartObjects(1).HasLegend = True
‘顯示圖例
ActiveSheet.ChartObjects(1).Legend.Position = xlLegendPositionRight
‘圖例移至圖表右側
位置語法
xlLegendPositionBottom – 圖表底部
xlLegendPositionCorner – 圖表的右上角
xlLegendPositionLeft – 圖表的左側
xlLegendPositionRight – 圖表的右側
xlLegendPositionTop – 圖表的頂部