問題與VBA和圖表

Question

Sub AddChart() 
Dim ch As ChartObject 
Set ch = ActiveSheet.ChartObjects.Add(200, 200, 200, 200) 
Dim chData As Range 
Set chData = Range("B2:B13") 
Dim chTitle As Range 
Set chTitle = Range("C1") 

With ch.Chart 
.SetSourceData Source:=Sheets("2_Basisdata").Range("B1:B13") 
.Charttype = xlColumnClustered 
.HasTitle = True 
.Charttitle = "chTitle" 
.Axes(xlCategory, xlPrimary).HasTitle = True 
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Monate" 
.Axes(xlValue, xlPrimary).HasTitle = True 
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Werte" 

End With 
End Sub 

是必須解決

新的問題：d 我要挑我的Basisdata工作表中的特殊行，然後創建一個圖表它。

錯誤是運行時438 對象犯規支持 holdmarker是charttitle

Answer 1

屬性或方法縱觀圖表對象的MSDN page，我看你需要使用它的Text屬性：

.Charttitle.Text = "chTitle"