Shape-Objekt als Textfeld

Forumthread: Shape-Objekt als Textfeld

30.09.2017 13:30:52

Golem

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shape-Objekt als Textfeld

30.09.2017 13:35:09

Hajo_Zi
AW: Shape-Objekt als Textfeld

30.09.2017 13:38:42

Sepp
AW: Shape-Objekt als Textfeld

30.09.2017 14:39:11

Golem

AW: Shape-Objekt als Textfeld

30.09.2017 13:35:09

Hajo_Zi

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.

AW: Shape-Objekt als Textfeld

30.09.2017 13:38:42

Sepp

Hallo Werner,

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

Gruß Sepp

AW: Shape-Objekt als Textfeld

30.09.2017 14:39:11

Golem

Hallo Sepp,
Du bist einfach nur der "Beste"!
Funktioniert einwandfrei und dann hast Du auch noch meinen Code verbessert.
Besser geht es nicht mehr.
Schönen Dank und noch eine schönen Tag
Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Shape-Objekt als Textfeld

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread