我使用這段代碼在選定的資料范圍內自動生成圖形，但我也想一鍵自動給它一個標題和軸的名稱，例如我想將 x 軸命名為小節，將 y 軸命名為計數，我想給作為矩陣圖的圖表標題我該怎么做。任何幫助真的很重要 提前致謝，很抱歉給您帶來不便
Sub create_embedded_chart()
Dim oChartObj As ChartObject
Set oChartObj = ActiveSheet.ChartObjects.Add(Top:=0, Left:=0, Width:=50, Height:=50)
oChartObj.Chart.SetSourceData Sheets("Tracedata").Range("A1:C45")
End Sub
uj5u.com熱心網友回復：
請測驗下一個（更新的）代碼：
Sub create_embedded_chart()
Dim oChartObj As ChartObject
Set oChartObj = ActiveSheet.ChartObjects.Add(top:=0, left:=0, width:=200, height:=200)
oChartObj.Chart.SetSourceData Sheets("Tracedata").Range ("A1:C45")
With oChartObj.Chart
.HasTitle = True
.chartTitle.text = "Matrix graph"
With .Axes(xlValue)
.HasTitle = True
With .AxisTitle
.Caption = "Count"
.Font.Name = "Arial"
.Font.Size = 10
.Font.Italic = True
End With
End With
With .Axes(xlCategory)
.HasTitle = True
.AxisTitle.text = "Subsection"
End With
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/334637.html
上一篇：R中的標志條件如何運行回圈？