Private Sub Document_DocumentOpened(ByVal doc As IVDocument) Set Win1 = ActiveWindow ActiveWindow.Page = doc.Pages(1) ' move to page 1 ActiveWindow.Zoom = -1 ' set zoom to whole page ' more code to be input here ' more code to be input here MsgBox "You are ready to work." End Sub
|Losing Image resolution when copying from Visio to Word||10||2,312|
|Visio 2013 - How to have a symetrical ARC||3||8,119|
|Linking Visio Drawing into Excel-Sheet||8||1,281|
|Shape.comments collection and Application.UserName in Visio 2013||5||69|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!