Отрегулируйте свойства формы Visio после размещения

Question

Мне просто нужно какое-то направление, я могу найти ответ, если знаю, где искать. Я программно отбрасываю фигуры на листе в качестве вывода из запроса db. Эти формы имеют ряд свойств (проп.). Я хотел бы удалить фигуру, а затем установить эти свойства. То, что я делаю, дает мне ошибки. Я подозреваю, что есть шаг, который мне не хватает. Вот как я падаю форму

Dim vsoShape As Visio.Shape 
Dim vsoMaster As Visio.Master 

For lngRow = LBound(lngRowIDs) + 1 To UBound(lngRowIDs) + 1 
    varRowData = vsoDataRecordset.GetRowData(lngRow) 

    Set vsoMaster = Visio.Documents(varRowData(14) + ".vss").Masters(varRowData(8)) 

    dblX = dblX + 0.5 
    dblY = dblY + 0.5 

    Set vsoShape = ActivePage.Drop(vsoMaster, dblX, dblY) 

    'vsoShape.Cells("Prop.title").Formula = Chr(34) & varRowData(0) & Chr(34) 
    'vsoShape.Cells("Prop.Entitlements").Formula = Chr(34) & varRowData(1) & Chr(34) 
    'vsoShape.Cells("Prop.environ").Formula = Chr(34) & varRowData(2) & Chr(34) 
    'vsoShape.Cells("Prop.netZone").Formula = Chr(34) & varRowData(3) & Chr(34) 
    'vsoShape.Cells("Prop.Mem").Formula = Chr(34) & varRowData(4) & Chr(34) 
    'vsoShape.Cells("Prop.vcpu_cores").Formula = Chr(34) & varRowData(5) & Chr(34) 
    'vsoShape.Cells("Prop.sockets").Formula = Chr(34) & varRowData(6) & Chr(34) 
    'vsoShape.Cells("Prop.hosts").Formula = Chr(34) & varRowData(7) & Chr(34) 
    'vsoShape.Cells("Prop.shape").Formula = Chr(34) & varRowData(8) & Chr(34) 
    'vsoShape.Cells("Prop.shapeKey").Formula = Chr(34) & varRowData(15) & Chr(34)    
Next lngRow 

Я думаю, что мне нужно сделать, это получить некоторую форму ID после я бросаю его затем использовать этот идентификатор формы для установки значений. Кажется, что ошибка не может найти имя свойства. Все имена prop.X верны. Ошибка, я получаю

Ошибка выполнения «-2032466967 (86db03e9)»: Неожиданный конец файла

Я новичок в работе с Visio VBA. Я больше привык к Excel.

Michael.

Answer 1

Это не столько ответ, сколько решение. Чтобы это было ответом, мне нужно было бы знать, почему у меня возникли проблемы с доступом к свойствам для группы с фигурой, когда есть более одной группы. Решение состояло в том, чтобы перепроектировать все пользовательские фигуры, чтобы иметь только одну группу. как только это было сделано, приведенный выше код для установки значений свойств работал без проблем.

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

Спасибо.

Michael