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

Ven

28 Posts

Posted - 07/20/2006 :  16:14:17
Уважаемые, а вы случайно не подскажите, как сделать объект (это даже скорее объекты объединенные в группу) невидимым? Заранее благодарен!

Tumanov

Russia
1198 Posts

Posted - 07/20/2006 :  17:31:41
Для группы, пожалуй, лучше всего будет привязать шейп к слою, а слой сделать невидимым.
Go to Top of Page

Ven

28 Posts

Posted - 07/21/2006 :  10:55:41
quote:
Originally posted by Tumanov

Для группы, пожалуй, лучше всего будет привязать шейп к слою, а слой сделать невидимым.



Дело в том, что мне нужно делать невидимыми различное количество шейпов (и групп). И это количество предсказать нельзя. Возможно ли сделать отдельный невидимый слой и когда нужно сделать шейп не видимым, привязывать его к этому слою, а потом, когда нужно сделать шейп снова видимым, отделять его от слоя? Если можно, приведите пожалуйста пример. Буду вам очень благодарен.
Go to Top of Page

Tumanov

Russia
1198 Posts

Posted - 07/21/2006 :  12:37:24
Можно вручную создать слой hidden и снять у него в свойствах галочку Visible.
Тогда вот такой макрос при пошаговом выполнении моргнет первым шейпом на странице.
Sub ttt()
Dim LayerObj As Visio.Layer
Set LayerObj = ActivePage.Layers("hidden")
LayerObj.Remove ActivePage.Shapes(1), preserveMembersFlag
LayerObj.Add ActivePage.Shapes(1), preserveMembersFlag
End Sub
Go to Top of Page

Ven

28 Posts

Posted - 07/21/2006 :  14:30:36
Огромное спасибо! Разобралси
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)