All Forums
 Категория Visio
 Форум Вопросы и ответы
 Работа с несколькими листами
Author Previous Topic Topic Next Topic  

bdfy

Belarus
267 Posts
Posted - 03/24/2009 :  20:03:28
не могу разобраться как работать с несколькими листами.
quote:
Set vs = ActivePage.Shapes(name_box).SpatialNeighbors(visSpatialContain, 0.2, 0)

выделяет все фигуры под фигурой name_box на активной странице. а как задать конкретную страницу ? Pages(0) не работает, Page("исх. схема") тоже. а нужно разобратся. макрос должен все выделенное копировать с одной страницы на другую ( ну и далее уже производить манипуляции)

Tumanov

Russia
1198 Posts
Posted - 03/24/2009 :  20:32:03
А что-то я не уверен, что на неактивной странице можно что-либо селектировать...
Скорее всего придется сначала сделать нужную страницу активной.
Go to Top of Page

bdfy

Belarus
267 Posts
Posted - 03/24/2009 :  20:47:20
хм. чертовски логично :) разобрался. теперь нужно селекшен скопированный передвинать туда куда я хочу на новом листе
Application.ActiveWindow.Selection.Copy

Application.ActiveWindow.Page = Application.ActiveDocument.Pages.ItemU("расчет1")
Application.ActiveWindow.Page.DrawRectangle 0.07874, 6.850394, 0.393701, 6.692913 'чтобы не было лишних ошибок
Application.ActiveWindow.SelectAll
Application.ActiveWindow.Selection.Delete 'удаляем все
Application.ActiveWindow.Page.Paste
Application.ActiveWindow.Selection.Move 1, 2

paste копирует похоже отн. коорд курсора - т.е куда попало. move работает относительно как жестко задать координаты на новом листе ?
Go to Top of Page

bdfy

Belarus
267 Posts
Posted - 03/25/2009 :  12:35:24
по идее нужно получить коорд. селекшена, потом координаты фигуры к которой буду смещать, потом найти разность и использовать move. вот только упорно не найду как коорд. селекшена получить (центра селекшена)
Go to Top of Page

Tumanov

Russia
1198 Posts
Posted - 03/25/2009 :  18:11:34
quote:
не найду как коорд. селекшена получить (центра селекшена)

Сгруппировать, получить PinX, PinY группы, потом разгруппировать.
Go to Top of Page

bdfy

Belarus
267 Posts
Posted - 03/25/2009 :  18:38:35
спасибо. сработало.
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)