Calculate zoom for full screen view?

[Brian Mitchell]

I am trying to use VBA to set the zoom drawing to a full screen view but I
can't figure out how. Does anyone have any sample code they could post?

Thanks!!

 

[JuneTheSecond]

DoCmd method would be convinient.
Application.DoCmd visCmdFullScreenMode

 

[Brian Mitchell]

Thank you for the quick reply,

I am using the control in a VB.NET application and cannot use the DoCmd;
when I try I get an error telling me the command is disabled. I think I am
just stuck with trying to calculate the sizes. I have gone through the
examples in this news group but have not been able to find a solution that
works.

 

[JuneTheSecond]

You would check ViewFit property in you Visio help.
ActiveWindow.ViewFit = visFitWidth or visFitPage

 

[JuneTheSecond]

Now, I wonder what you would really wish, because you told us first that you
use VBA, but second VB.Net & Drawing Control. I assume you would like the
latter. And I still wonder if you would wish zoom to fit with the document
page, or to maxmize the Drawing Contro in the Form.

--
JuneTheSecond

Thank you for the quick reply,

I am using the control in a VB.NET application and cannot use the DoCmd;
when I try I get an error telling me the command is disabled. I think I am
just stuck with trying to calculate the sizes. I have gone through the
examples in this news group but have not been able to find a solution that
works.