| Author |
 Topic  |
|
|
Ven
28 Posts |
 Posted - 12/18/2006 : 13:52:01
|
| Уважаемые, а вы не знаете, можно ли как-нибудь программно добавить шейп на страницу и что бы визио не сделал его выбранным? Я понимаю, что можно ему сделать Deselect, но мне нужно, что остались выбранными те объекты, которые были выбранны до помещения шейпа на страницу. А сейчас если добавить шейп, то выделение очищается и выделяется только этот один новый шейп. |
|
|
Tumanov
Russia
1198 Posts |
Posted - 12/18/2006 : 18:55:25
|
А какие проблемы, если Вы добавляете его программно?
Сохраните и восстановите Selection. Ну, например, так:
Sub ttt()
Dim se As Visio.Selection
Set se = ActiveWindow.Selection
Set Sh = ActivePage.DrawLine(2, 2, 4, 4)
Debug.Print se.Count
ActiveWindow.DeselectAll
For i = 1 To se.Count
ActiveWindow.Select se(i), visSelect
Next i
End Sub
|
 |
|
| |
Topic |
|
|
|
All Forums
Selection