| Author |
 Topic  |
|
|
VeryOldMan
5 Posts |
 Posted - 04/02/2009 : 07:38:37
|
Уважаемые коллеги!
Требуется найти программным путем взаиморасположение по оси Z (zOrder)взимноперекрывающих друг друга двух и более шейпов на листе.
(Для справки: визуальное перемещение шейпов по оси Z реализуется командами "Send to back" & "Bring to Front"). |
|
|
Tumanov
Russia
1198 Posts |
Posted - 04/02/2009 : 19:44:48
|
Индексы надо смотреть. У кого индекс больше, тот сверху.
Примерно так:
Dim sh As Visio.Shape
Set sh = ActiveWindow.Selection(1)
Debug.Print sh.Index
|
 |
|
|
zhuravsky
Russia
115 Posts |
Posted - 04/03/2009 : 05:23:05
|
| Ну, и метод HitTest для анализа перекрываемости |
|
|
|
VeryOldMan
5 Posts |
Posted - 04/03/2009 : 07:18:30
|
Index property=Most collections are indexed starting with 1 rather than zero (0), so the index of the first element is 1, the index of the second element is 2, and so forth
Спасибо за подсказку. |
|
|
| |
Topic |
|
All Forums
zOrder