Hallo,
ich möchte mit VBA in einem Diagrammblatt (!) ein Textfeld relativ zu einem Datenreihenpunkt positionieren aber ich konnte bislang keine Lösung dafür finden. Das einzig Brauchbare schien mit Folgendes:
Sub Add_Text_to_point()
Dim tmpCHR As ChartObject
Set tmpCHR = Sheet1.ChartObjects(1) 'put index of your chartobject here
'for first serie, for point 2nd here
'(change accordingly to what you need)
With tmpCHR.Chart.SeriesCollection(1).Points(2)
Sheet1.Shapes.AddTextbox(msoTextOrientationHorizontal, _
.Left + tmpCHR.Left, _
.Top + tmpCHR.Top, _
100, 15) _
.TextFrame.Characters.Text = "Temperature"
End With
End Sub
Allerdings funktioniert dies nicht mit meinem Diagrammblatt.
Für Anregungen wäre ich dankbar.
Viele Grüße
Michael |