Text in Rechteckform trotz Gruppierung ändern
14.09.2003 13:35:07
Michael Rapp
ich benötige Hilfe bei einem VBA Problem.
Ich möchte in einem Rechteck, das mit 8 anderen zu einer Gruppe verbunden ist, den darin enthaltenen Text verändern. Das ist möglich per Hand ohne die Gruppe aufzulösen (ist auskommentiert). Wenn ich jedoch den Makrorecorder einstelle kann ich auf den Inhalt des Rechtecks nicht mehr zugreifen. Mein Codeversuch sieht so aus:
Sub TextVerändern()
Dim sh As Shape
Set sh = Tabelle8.Shapes("Rectangle 5")
'Tabelle8.Shapes("Group 1").Ungroup
sh.Characters.Text = "abc" & Chr(10) & "1234"
End Sub
Bei der Texteingabe kommt immer eine Fehlermeldung. Was mache ich falsch? Liegt es an einer korrekten Definition von "sh".
Danke für Eure Zeit
Michael Rapp