want to change fill color on multiple shapes one at a time by mouse clicke the shapes to turn it red or green
want to change fill color on multiple shapes one at a time by mouse clicke the shapes to turn it red or green
I am using this code to change a cell color but I want to perform same type of action on various shapes by clicking on them
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Interior.ColorIndex
Case xlNone, 4: Target.Interior.ColorIndex = 3
Case Else: Target.Interior.ColorIndex = 4
End Select
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub
Maybe a double-click?
![]()
Please Login or Register to view this content.
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
Yes your code works same as mine but it performs action cells in the worksheet. I am trying to perform the same type action on several hundred Rounded Rectangles I have placed on the worksheet. each having a unique names
Yes your code works same as mine but it performs action to cells in the worksheet. I am trying to perform the same type action on several hundred Rounded Rectangle "Shapes" I have placed on the worksheet. each having a unique names
Thanks for the rep but I have yet no solution![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks