Ich füge per Makro ein Textfeld in ein Diagramm ein.
Ein Problem habe ich dabei.
Immer wenn ich das tue bekommt das Textfeld eine neue Nummer
(Textfeld 60 .......61 usw.)
Somit ist das gezielte Löschen mit einem 2. Makro schwierig.
Wieviele Textfelder könnte ich denn theor. erzeugen?
oder ..... Wie kann ich das besser umsetzen.
Sub Beschriftung()
Application.ScreenUpdating = False
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 20#, 20, 0# _
, 0#).Select
Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue
Selection.Characters.Text = Beschriftung_var
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub
Vielen Dank