All Forums
 Категория Visio
 Форум Вопросы и ответы
 Поиск и выделение шэйпа.
Author Previous Topic Topic Next Topic  

Gaff

Russia
14 Posts
Posted - 08/22/2005 :  18:02:30
Уважаемые, не подскажите где можно взять описание макроса, который ищет шэйп (по имени, по тексту в нём и т.д.).
Или хотя бы какая функция отвечает за выделение шэйпа на странице.
Т.е. другими словами, мне необходимо чтобы нужный шэйп выделялся не с помощью клика по нему, а программно.
Заранее благодарен за ответ.

Tumanov

Russia
1198 Posts
Posted - 08/22/2005 :  20:10:09
Для поиска по имени можно просто указывать имя при обращении к коллекции шейпов.
Например, вот такой макрос селектирует шейп с именем Square.3.
Sub ttt()
ActiveWindow.Select ActivePage.Shapes("Square.3"), visDeselectAll + visSelect
Debug.Print ActiveWindow.Selection.Count
End Sub
А вот для поиска по тексту шейпа и т.д. придется перебирать всю коллекцию шейпов и сравнивать содержимое нужной ячейки ShapeSheet с заданным значением. А потом точно так же использовать Select.
Go to Top of Page

Gaff

Russia
14 Posts
Posted - 08/23/2005 :  11:25:19
Всё работает.
Большое человеческое спасибо...:)
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)