Проблемы с 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"