VisualBasic in Visio mittels VBA-Code die ausgewählten shapes zählen

[sens.sash]

Hi Leute,

ich habe in Visio ein Laout erstellt, welches ca 5000 shapes enthält. Jetzt würde ich gerne die genaue Anzahl errechnen lassen. Kann mir da jemand weiterhelfen?

 

[cessy000]

msgbox ActiveSheet.Shapes.Count

?

 

[sens.sash]

msgbox ActiveSheet.Shapes.Count

?

Hallo cessy000,

vielen Dank für deine Antwort aber dies verursacht den Fehler:

Laufzeitfehler 424
"Objekt erforderlich"

Aber eine MS VISIO Object Libary kann ich leider nicht finden...