All Forums
 Категория Visio
 Форум Вопросы и ответы
 Может ли функция быть массивом?
Author Previous Topic Topic Next Topic  

Robinkzn

84 Posts
Posted - 06/23/2011 :  08:48:24
Нужна функция, которая возвратит масиив шейпов, выбранных по свойсвтвам определенным. Шейпы могут быть на разных листах. Можно ли добавлять шейпы в коллекцию шапес если они на различных листах? Если да то как это делается?

Tumanov

Russia
1198 Posts
Posted - 06/23/2011 :  15:44:03 
Dim c As Collection
Dim sh As Visio.Shape

Sub ttt()
    Set c = New Collection
    Set sh = ThisDocument.Pages(1).Shapes(1)
    c.Add sh
    Set sh = ThisDocument.Pages(2).Shapes(1)
    c.Add sh
    For i = 1 To c.Count
        Debug.Print c(i).Text
    Next
End Sub
Go to Top of Page

Robinkzn

84 Posts
Posted - 06/23/2011 :  18:24:35
Спасибо! То что надо!
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)