Der Fehler tritt nach dem letzten Zeichenblatt auf, wenn dort die For Each Schleife durch ist, danach kommen die Hintergrundblätter wo die besagten Shapes nicht vorhanden sind.
Aaaha - das war eine wichtige Info! ;)
Den Blatttyp kann man lt. Doku abfragen - Page.Type-Eigenschaft
Public Sub BearbeiterAndern4()
Dim objPage As Visio.Page
For Each objPage In ThisDocument.Pages
Select Case objPage.Type
Case visTypeForeground ', visTypeMarkup, ...
objPage.Shapes("A3_Kopf").Shapes("Bearbeiter").Text = "Testname"
End Select
Next
End Sub
Du müsstest also mal schauen welche Blätter du hast / nicht berücksichtigen willst. Im Makro werden jetzt nur Vordergrundblätter berücksichtigt.
Grüße
|