Hallo,
Ich habe ein kleines Makro was mir die Anzahl der Arbeitsblätter in Visio ausgibt, leider bekomme ich es nicht hin das es NUR die Vordergrundblätter zählt.
Habe es mit Select case versucht, aber nicht hinbekommen ... kann mir da einer helfen? :-)
Sub ArbBlattZählen1()
Dim intZahl As Integer
intZahl = ActiveDocument.Pages.Count
MsgBox intZahl
End Sub
Gruß
ScOtty
|