| Author |
 Topic  |
|
|
Black_Serdzh
Russia
8 Posts |
 Posted - 12/09/2004 : 15:02:48
|
Мастер Туманов, есть такая проблема.
В своем приложении нужно сделать следующее:
при выборе фигуры на странице пользователь может вызвать функцию, которая должна найти все фигуры (и, может, поменять сразу у всех найденных цвет) в окрестнотях определенного радиуса от выбранной фигуры. Было бы очень хорошо увидеть работающий код, потому как у меня не получается.
я знаю, что нужно использовать функцию get_SpatialSearch, но как правильно не пойму.
Помогите, пожалуйста, если можете! |
|
|
Tumanov
Russia
1198 Posts |
Posted - 12/09/2004 : 22:07:04
|
Убойная сила 2 дюйма от центра вращения селектированного шейпа
Sub ttt()
Dim sh As Visio.Shape
Dim shs As Visio.Selection
Set sh = ActiveWindow.Selection(1)
x = sh.Cells("PinX")
y = sh.Cells("PinY")
Set shs = sh.Parent.SpatialSearch(x, y, visSpatialContainedIn Or visSpatialTouching, 2, 0)
For Each sh In shs
sh.Cells("FillForegnd").Formula = "=2"
Next
End Sub |
 |
|
|
Black_Serdzh
Russia
8 Posts |
Posted - 12/10/2004 : 09:22:26
|
 Большое, большое спасибо! 
|
|
|
| |
Topic |
|
|
|
All Forums
Поиск фигур в окрестностях