Shape-Objekt als Textfeld

Hallo Excel-Fachleute.
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gebe dem Objekt einen Namen, mit dem kannst du es dann ansprechen. Würde ich vermuten.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.

Sub createTB() Dim tboText1 As Shape Set tboText1 = ActiveSheet.ChartObjects(1).Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 875, 496, 40, 20) With tboText1 .Name = "myTextBox" With .DrawingObject .Text = "----" .Font.Name = "TimesNewRoman" .Font.Size = 16 .Font.Bold = True .Font.Color = RGB(0, 176, 240) End With End With Set tboText1 = Nothing End Sub Sub deleteTB() On Error Resume Next ActiveSheet.ChartObjects(1).Chart.Shapes("myTextBox").Delete End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Shape-Objekt als Textfeld

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread