All Forums
 Категория Visio
 Форум Вопросы и ответы
 Существует ли шейп
Author Previous Topic Topic Next Topic  

denis

7 Posts

Posted - 06/16/2005 :  12:57:14
Как проверить, существует ли шейп с данным именем на лесте? Или это можно сделать только перебором всех шейпов?

Edited by - denis on 06/16/2005 13:37:31

brace

Russia
358 Posts

Posted - 06/16/2005 :  14:08:24
запустите утилиту инвентаризации
она создает таблицу с перечнем всех шейпов данного листа
Tools>Reports>Inventory
Go to Top of Page

denis

7 Posts

Posted - 06/16/2005 :  14:18:04
Такой способ не гадится,к сожелению проверяется макросом, нужно вписоть текст в определенный квадратик, если он конечно существует
Go to Top of Page

brace

Russia
358 Posts

Posted - 06/16/2005 :  14:44:43
quote:
нужно вписоть текст в определенный квадратик

ну так бы спрашивал !
Go to Top of Page

Tumanov

Russia
1198 Posts

Posted - 06/16/2005 :  18:54:23
Sub ttt()
On Error Resume Next
Set sh = ActivePage.Shapes("MyShape")
On Error GoTo 0
If sh = Empty Then Debug.Print "Нет такого шейпа"
End Sub
Go to Top of Page

denis

7 Posts

Posted - 06/17/2005 :  07:12:23
Этот вариант у меня тоже крутился в голове, попробую реализовать этим способом. Cейчас сделано через перебор всех шейпов. Интересно, какие плюсы и минусы этих двух вариантов.
Я почемуто думал что есть чтонибудь типа ShapeExists
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)