Форум пользователей Visio

Public Sub Test()
Dim sc As ShapesCollection
Dim args(2, 1) As String
Dim col As Collection
   
    Set sc = NewSC
   
    args(0, 0) = "Prop.Row_1"
    args(0, 1) = "ппп"
    args(1, 0) = "Prop.Row_2"
    args(1, 1) = "123"
    args(2, 0) = "Prop.Row_3"
'    args(1, 0) = "123"
    'Наполняем коллекцию фигурами с имеющимися ячейками
    sc.Fill(args)
    'выбираем все фигуры полученной коллекции
    sc.SelectSC
    'Получаем собственно коллекцию (обращаться к элементам можно по id фигуры)
    Set col = sc.GetShapesCollection
       
    Set sc = Nothing
End Sub