D
deepumukundan
Hi,
I have a visio drawing for which the shape sheet is 340 inches while the
entire drawing consumes 1500 inches. (height 35 inches). Why 340 inches is
that if i give shape sheet with more than 340 i wont be getting a 100% zoom
with the drawing. So currently i can zoom upto 100%.The image has around 6200
shapes including the dynamic connectors.
The problem occurs when, using a custom macro, i select a shape object
within the entire image and try to zoom into it (something like a search).
Within a specific region from the shape sheet (both left and right) i dont
have any problem, but after this range my code doesnt seem to work.
Visio.Application.ActiveWindow.DeselectAll
Visio.Application.ActiveWindow.Zoom = 0.01 'Change zoom to lower value
Visio.Application.ActiveWindow.Select ActivePage.Shapes(MYSHAPENAME),
visDeselectAll + visSelect
Visio.Application.ActiveWindow.Zoom = 1.0 'Reset zoom so that shape gets to
center screen
any possible explanation for this effect? and any way i can overcome this
issue? please help me out.
NB: my findings are that : 1. zoom is inversely proportional to shape sheet
width of the page and 2. Search area is directly proportional to shape sheet
width of that page.
I have a visio drawing for which the shape sheet is 340 inches while the
entire drawing consumes 1500 inches. (height 35 inches). Why 340 inches is
that if i give shape sheet with more than 340 i wont be getting a 100% zoom
with the drawing. So currently i can zoom upto 100%.The image has around 6200
shapes including the dynamic connectors.
The problem occurs when, using a custom macro, i select a shape object
within the entire image and try to zoom into it (something like a search).
Within a specific region from the shape sheet (both left and right) i dont
have any problem, but after this range my code doesnt seem to work.
Visio.Application.ActiveWindow.DeselectAll
Visio.Application.ActiveWindow.Zoom = 0.01 'Change zoom to lower value
Visio.Application.ActiveWindow.Select ActivePage.Shapes(MYSHAPENAME),
visDeselectAll + visSelect
Visio.Application.ActiveWindow.Zoom = 1.0 'Reset zoom so that shape gets to
center screen
any possible explanation for this effect? and any way i can overcome this
issue? please help me out.
NB: my findings are that : 1. zoom is inversely proportional to shape sheet
width of the page and 2. Search area is directly proportional to shape sheet
width of that page.