VBA插入圖表&輸入標題
前一篇介紹到使用「VBA插入圖表」，省去手動操作的麻煩，那如果想同時建立「圖表標題與座標軸標題」呢？
如要將以下數據插入圖表以及建立圖表與座標軸標題。
輸入巨集
※輸入以下指令※
Sub 插入圖表與標題()
Range("A1").CurrentRegion.Select
ActiveSheet.Shapes.AddChart
With ActiveSheet.ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "圖表名稱"
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "X座標軸標題"
End With
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Text = "Y座標軸標題"
End With
End With
End Sub
執行巨集
點選「開發人員」-「 巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則快速將「A1區域資料」插入圖表，且將圖表標題設定為「圖表名稱」，X與Y座標軸標題分別為「X座標軸標題」與「Y軸座標軸標題」 (可依想命名的名稱於巨集上做修改)。
語法說明
.HasTitle = True
‘顯示標題
.ChartTitle.Text = “圖表名稱”
‘設定標題名稱為「圖表名稱」
ActiveSheet.ChartObjects(1).Chart.HasTitle = True
‘顯示圖表標題
ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, xlPrimary)
‘顯示X軸座標軸標題
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, xlPrimary)
‘顯示Y軸座標軸標題
‘以上搭配With句則可省下一長串的重複輸入。