the g.

Bevor ich’s wieder langmächtig such: Alle Zeichenblätter im aktiven Dokument werden mit den aktuellen Settings als PNG gespeichert:

Sub SpeichernAlsPng()

    Dim PagsObj As Visio.Pages
    Dim PagObj As Visio.Page

    Set PagsObj = ActiveDocument.Pages

    For Each PagObj In PagsObj
        ActiveWindow.Page = PagObj.Name
        Application.ActiveWindow.Page.Export ActiveDocument.Path + PagObj.Name + ".png"
    Next PagObj
End Sub