Web maps have push pin location shapes that rescale to maintain the same size when zooming in and out. I'd like to mimic that behavior in Visio 2010.
So I created a push pin Visio Shape (0.5 in Height, 0.25 in Width) to recreate that feature, but it's not clear to me how to edit the Height/Width ShapeSheet cells with a zoom status formula. I did a Macro capture of a down, up and back zoom using
View->Zoom that generated this code:
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140
Application.ActiveWindow.Zoom = 0.75
Application.ActiveWindow.Zoom = 1.5
Application.ActiveWindow.Zoom = 1#
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
I see that I would divide the base values by the zoom value. But don't know the way to refer to the ActiveWindow zoom value. Any clever ideas on how to complete the process?
Microsoft is conducting an online survey to understand your opinion of the Technet Web site. If you choose to participate, the online survey will be presented to you when you leave the Technet Web site.