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

SashK0

2 Posts
Posted - 06/27/2007 :  13:55:35
Здравствуйте.
Есть документ в котором вручную нарисованы круги, прямоугольники и добавлен текст(точнее слово). Подскажите, пожайлуста, как мне программно найти это слово ?

Tumanov

Russia
1198 Posts
Posted - 06/27/2007 :  15:40:51
Быстренько перебираете все шейпы на активной странице (или на всех страницах документа), сравниваете свойство "Text" с нужным словом. Как только сравнится, значит нашли.
Например, ищем на активной странице слово "Тест" и распечатываем его ShapeID:
Sub ttt()
For Each Sh In ActivePage.Shapes
If StrComp(Sh.Text, "Тест") = 0 Then
Debug.Print Sh.NameID
End If
Next
End Sub
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)