Reply to thread

Message: [QUOTE="Steve Rindsberg, post: 8415132"] This makes sense, then. So long as you understand that a VBA solution won't work in the free Viewer, but it doesn't sound as though that's an issue in your situation. So, add this macro and assign it to each shape whose color you want to "flip" as an action setting. Set the color of the shape to whatever color you've defined as the default color. We could probably take it a step beyond and teach it to work with any clicked shape and remember the shape's original color, then set it back on re-click if need be. Sub FlipColors(oSh as Shape) Dim lDefaultColor as Long Dim lHighlightColor as Long ' Edit these as needed lDefaultColor = RGB(0,0,255) ' pure blue lHightlightColor = RGB(255,255,0) ' yellow With oSh.Fill.ForeColor Select Case .RGB Case lDefaultColor .RGB = lHighlightColor Case lHighlightColor .RGB = lDefaultColor End Select End With End Sub End Sub [/QUOTE]