Titel des Diagramms automatisch setzen

Question

Gibt es trotzdem den Titel eines Diagramms gleich Zeichenkettenvariable zu haben. Ich habe mich manuell registriert, indem ich den Titel änderte und es kam zuerst als Aktivierung und dann als Textbearbeitung, aber wie mache ich das, wenn ich es nicht aktivieren möchte. Ich weiß, dass der Name des Diagramms Diagramm 1 ist, also habe ich versucht, einen Weg zu finden, den Titel von Diagramm 1 auf meine String-Variable zu setzen (die ich von einer anderen Schleife an anderer Stelle erzeuge). Thx

activesheet.chartobjects("chart 1").activate 
activesheet.charttitle.text="my text edit" 

Answer 1

ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Text = "my text edit" 

Sie mehr über Chartobjects here

Answer 2

Ich bevorzuge diese Lösung lesen:

Dim var As String 

Set objChrt1 = Sheets("sheet1").ChartObjects(1) 
Set myChart1 = objChrt1.chart 
myChart1.ChartTitle.Text = "my text edit" 

var = myChart1.ChartTitle.Text 
MsgBox var