| Author |
 Topic  |
|
|
evgenia_e
Germany
22 Posts |
 Posted - 03/25/2004 : 15:43:04
|
Никак не могу добавить шейп к группе автоматически, может, кто-нибудь поможет!
У меня есть выделенная группа, которая доступна через Selection.Item(1). И есть шейп, допустим, shpObj1. Как мне этот шейп добавить к группе через VBA? У шейпа и у группы есть только методы Group и Ungroup. Помогите!!
|
|
|
Tatyana
Russia
19 Posts |
Posted - 03/26/2004 : 10:25:47
|
quote:
Originally posted by evgenia_e
Никак не могу добавить шейп к группе автоматически, может, кто-нибудь поможет!
У меня есть выделенная группа, которая доступна через Selection.Item(1). И есть шейп, допустим, shpObj1. Как мне этот шейп добавить к группе через VBA? У шейпа и у группы есть только методы Group и Ungroup. Помогите!!
Я бы делала это так:
Dim TxtSel As String
Dim shpGroup As Visio.Shape
TxtSel=ActiveWindow.Selection.Item(1)
Set shpGroup=ActivePage.Shapes.Item(TxtSel)
ActiveWindow.DeselectAll
ActiveWindow.Select shpGroup, visSelect
ActiveWindow.Select shpObj1, visSelect 'shpObj1 - ваш шейп
ActiveWindow.Group
' И дальше также можно обратиться к новой группе
TxtSel=ActiveWindow.Selection.Item(1)
Set shpGroup=ActivePage.Shapes.Item(TxtSel) |
 |
|
| |
Topic |
|
|
|
All Forums
Добавления шейпа к группе через VBA