Insert a new page and zoom it to 75% with VBA

[mmtraining]

I am using VBA in Visio 97.

I have worked out how to insert a new page, works wonderfully. Now I want to zoom the page, so it shows 75 %. HO

http://WWWWW???

This is what I've got so far. All very nice, but the new page insists on coming up at 32% which is a bit small for my lot.

Sub Neue_Seite()
    Dim i As Integer
    i = Application.ActiveDocument.Pages.Count
    Application.ActiveDocument.Pages.Add
    ActivePage.Name = "Seite " & i
End Sub

Thanx in advance for any help,

Carol
Berlin, Germany