Mit folgendem Code füge ich in einem Diagramm ein Shape-Objekt als Textfeld ein.
Sub Test1()
Dim tboText1 As Shape
With ActiveSheet.ChartObjects(1).Chart
Set tboText1 = .Shapes.AddTextbox(msoTextOrientationHorizontal, 875, 496, 40, 20)
tboText1.DrawingObject.Text = "----"
tboText1.DrawingObject.Font.Name = "TimesNewRoman"
tboText1.DrawingObject.Font.Size = 16
tboText1.DrawingObject.Font.Bold = True
tboText1.DrawingObject.Font.Color = RGB(0, 176, 240)
End With
End Sub
Funktioniert einwandfrei.
Ich möchte dieses Shape-Objekt bei Bedarf auch kompl. entfernen.
Ich schaffe es nicht, einen Code zu erstellen, mit dem dieses Löschen möglich ist.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Schöne Grüße
Werner