|
evgenia_e
Germany
22 Posts |
 Posted - 05/18/2004 : 15:40:19
|
Помогите!
У меня группа, например, grpshp. К этой группе надо добавить шейп shp. Как это сделать из VBA?
Сначала я просто выделяла группу и этот шейп и их просто группировала, но получается в новой группе - группа в группе. Мне это совсем не надо.
Потом в цикле в массив шейпов копировала все шейпы из grpshp. grpshp.Ungroup. Вновь хочу селектировать все шейпы, вллючая и новый и сгруппировать все это опять. Но возникает проблема с селектированием:
ActiveWindow.Select arrShp(j), visSelect и
visApp.ActiveWindow.Select arrShp(j), visSubSelect
выдают ошибки. arrShp(j)-это как раз каждый из шейпов, который раньше был в начальной группе.
ПРичем на версии Visio for Enterprise Architects ошибки в последнем случае селектирования не возникает. Но хотелось бы, чтобы работало и на Visio 2002.
Есть ли метод AddToGroup или что-то в этом роде и, если есть как с ним работать?
Спасибо |
Edited by - evgenia_e on 05/18/2004 18:00:52 |
|
All Forums
Как добавить шейп к группе через VBA?
