the g.

Visio: Alle Zeichenblätter als PNG speichern

with 3 comments

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

3 Responses to 'Visio: Alle Zeichenblätter als PNG speichern'

Subscribe to comments with RSS or TrackBack to 'Visio: Alle Zeichenblätter als PNG speichern'.

1. ha, gotti is a vba-whore! ich darf das sagen, ich bins selber ja auch zwangsweise noch ab und zu …

   

   Pendi

   18 Jan 08 at 3:02 pm
2. lieber vba als 15mal die selben drei mausklicks! never do by hand in 5 minutes what you can automate in 10…

   

   gotti

   18 Jan 08 at 10:30 pm
3. Die Möglichkeit, meinen Blog als Notizblock zu verwenden habe ich bisher noch gar nicht gesehen… :D

   

   Martin

   19 Jan 08 at 3:50 pm

Leave a Reply