| Author |
 Topic  |
|
|
amc
Ukraine
2 Posts |
 Posted - 05/13/2004 : 09:49:11
|
| Как программно изменить цвет шейпа при выборе одинарным кликом? |
|
|
Tumanov
Russia
1198 Posts |
Posted - 05/13/2004 : 16:35:36
|
Можно ориентироваться на SelectionChanged, считая, что по одиночному клику шейп становится селектрованным.
Например, вот такой обработчик SelectionChanged отлично перекрашивает шейпы, если щелкать по разным шейпам. Надо только помнить, что если щелкнуть по селектированному шейпу, он перестает быть селектированным :)
Window.Selection(1).Cells("FillForegnd").Formula = Window.Selection(1).Cells("FillForegnd") + 1 |
 |
|
|
amc
Ukraine
2 Posts |
Posted - 05/14/2004 : 10:49:17
|
quote:
Originally posted by Tumanov
Можно ориентироваться на SelectionChanged, считая, что по одиночному клику шейп становится селектрованным.
Например, вот такой обработчик SelectionChanged отлично перекрашивает шейпы, если щелкать по разным шейпам. Надо только помнить, что если щелкнуть по селектированному шейпу, он перестает быть селектированным :)
Window.Selection(1).Cells("FillForegnd").Formula = Window.Selection(1).Cells("FillForegnd") + 1
а можно полный код? что-то не идет. |
|
|
|
Tumanov
Russia
1198 Posts |
Posted - 05/14/2004 : 15:37:39
|
Dim WithEvents Win As Window
Sub ttt()
Set Win = ActiveWindow
End Sub
Private Sub Win_SelectionChanged(ByVal Window As IVWindow)
Window.Selection(1).Cells("FillForegnd").Formula = Window.Selection(1).Cells("FillForegnd") + 1
End Sub
Сначала один раз выполнить ttt(). Потом можно долго щелкать по неселектированным шейпам - они будут перекрашиваться. |
|
|
| |
Topic |
|
All Forums
цвет шейпа при выборе