All Forums
 Категория Visio
 Форум Вопросы и ответы
 Центрирование вида на фигуре
Author Previous Topic Topic Next Topic  

9rey

Russia
30 Posts
Posted - 11/23/2011 :  05:31:28
Подскажите, как из макроса сфокусировать вид на фигуре?
нужно, чтобы открывалась та страница, на которой нужная фигура, камера бы на нее наезжала так, чтобы фигура оказывалась в центре рабочего окна и немного приближался вид, типа zoom.

9rey

Russia
30 Posts
Posted - 11/23/2011 :  08:34:26
разобрался. сделал через ф-ю SetViewRect

Dim sh As Visio.Shape

Set sh = ActivePage.Shapes("Sheet.1")
Application.ActiveWindow.DeselectAll
Application.ActiveWindow.Select sh, visSelect
Application.ActiveWindow.SetViewRect _
sh.Cells("PinX") - 2, sh.Cells("PinY") + 2, 4, 4
Go to Top of Page

Surrogate

Russia
122 Posts
Posted - 12/10/2012 :  09:03:05  Visit Surrogate's Homepage
если не нужно делать укрупнение плана, а просто сделать выделенный шейп в центре экрана…
то в 2010 можно сделать немного короче :)

Dim sh As Visio.Shape
Set sh = ActivePage.Shapes.ItemFromID(1)
Application.ActiveWindow.CenterViewOnShape sh, visCenterViewSelectShape


†
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)