Hi Dirk und Mitlesende,
du fragtest nach
rootNode.Children.Item(1).Shape.DrawingObject.Text = „neuer Text“
und warum das nicht klappt.
Ich habe dann in meinem Excel2000 nach Children und DrawingObject in der Vba-Hilfe geschaut, sie stehen im Index, aber Hilfe gibt es nicht.
Auch im Objektkatalog sind sie nicht zu finden.
Ich fragte dann in einem anderen Forum nach und erhielt folgende Antwort:
DrawingObjects z.B. sind ein obsoleter Begriff und deshalb im Objektkatalog ausgeblendet,(aber vorhanden und nicht mehr dokumentiert). Um dennoch an die Objekte zu kommen kannst du das Lokalfenster verwenden.
Naja, muss ehrlich sagen, ich habe null verstanden was mir da gesagt wird, vielleicht nützt die Aussage dir was.
Gruß
Reinhard
Hallo Reinhard,
deine Antwort ist korrekt, in der Hilfe findest du nichts dazu. Allerdings kannst du beim Debuggen ein solches Objekt öffnen und dann auch seine Inhalte feststellen.
Set comB = Application.ActiveWorkbook.Sheets(sheetName).Shapes(„meinShape“)
comB.DrawingObject.Object.Caption = neuerText
So setze ich die Aufschrift eines Buttons im Rahmen von Übersetzungen.
Per Google findest du auch veile Seiten, wo das DrawingObject verwendet wird 
.
Interessieren würde mich die Formulierung „obsolet“. Das deutet darauf hin, dass man`s auch anders machen kann. Also: Eine Idee dazu?
mfg
Dirk.Pegasus
Beispiel in Word (2002sp2)
Hallo zusammen,
kann das mal einer unter EXCEL testen, hab keins hier …
Sub testme()
Dim dia As DiagramNode
Set dia = Application.ActiveDocument.Shapes _
(1).DiagramNode.Diagram.Nodes.Item(1)
dia.TextShape.TextFrame.TextRange.Text = „neuer text“
End Sub
mfg
Dirk.Pegasus