Hi I am trying to invert the colors of a bitmap using a Macro. I know this function exist but I do not know how to call the method.
I do this manually like this...
Effects - Transform - Invert Colors
Is there a macro or method available?
Look at the Shape.ApplyEffectInvert and ShapeRange.ApplyEffectInvert methods.
Those methods are not limited to bitmap shapes.
Thank you very much Eskimo. It worked perfectly.
I end up with this code:
Sub S() Dim bmap As Shape Set bmap = ActiveSelection.Group bmap.ApplyEffectInvert
End Sub
You can make it even simpler.
Sub invert_colors() ActiveSelectionRange.ApplyEffectInvert End Sub