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

SuperTed

Russia
7 Posts
Posted - 02/03/2004 :  02:13:02
Народ как из VBA сделать невидимым Shape?

Digitall

Russia
389 Posts
Posted - 02/03/2004 :  09:33:48  Visit Digitall's Homepage
quote:
Originally posted by SuperTed

Народ как из VBA сделать невидимым Shape?

К примеру так:
Sub Text_position()
Dim shpObj As Visio.Shape
Set pagsObj = ThisDocument.Pages
Set pagObj = pagsObj.Item(1)
Set selectObj = ActiveWindow.Selection
Set shpObj = ActiveWindow.Selection.Item(1)
Set celObj1 = shpObj.Cells("Geometry1.NoShow") 'назначаем ячейку
celObj1.Formula = "1" 'делаем невидимым
End Sub
Go to Top of Page

SuperTed

Russia
7 Posts
Posted - 02/03/2004 :  22:15:16
Огромное спасибо - все получилось!!!
Go to Top of Page

SuperTed

Russia
7 Posts
Posted - 02/03/2004 :  22:18:16
А вот как сделать обратные действия?
Go to Top of Page

SuperTed

Russia
7 Posts
Posted - 02/03/2004 :  22:20:42
Уже понял надо в строке
celObj1.Formula = "1" 'делаем невидимым
написать
celObj1.Formula = "0" 'делаем видимым
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)