maximize minimize

[Jason V]

I am opening an instance of visio from excel but I am having visible = false.
At some time in an excel form I want to give the user the ability to modify
the visio drawing. At that point I have visible = true but I would like it to
make the visio application mazimized and set focus to it, be the program that
is active. How do I do this?

 

[Kari Yli-Kuha]

I am opening an instance of visio from excel but I am having visible = false.
At some time in an excel form I want to give the user the ability to modify
the visio drawing. At that point I have visible = true but I would like it to
make the visio application mazimized and set focus to it, be the program that
is active. How do I do this?

Would the following work?

Sub test()
Dim ovApp As Visio.Application
Set ovApp = CreateObject("Visio.Application")

ovApp.Visible = True
ovApp.Window.WindowState = Visio.VisWindowStates.visWSMaximized
ovApp.Window.Activate

End Sub

/C