Macro to change font colour in Active Shape

[ttratl]

Hi Everyone,

I need to adapt this code so that it runs against a user selected shape (the "active shape").

Sub Macro2()
'
ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame.Characters.Font.ColorIndex = 0

End Sub

At the moment, the shape name has to be used, and I can't use the names.

Any ideas?

 

[GlennUK]

Have you tried:

Selection.TextFrame.Characters.Font.ColorIndex = 0

?

or maybe just:

Selection.Font.ColorIndex = 0

 

[moonfish]

I believe Application.Caller can be used to obtain the name of the shape you're selecting.

 

[ttratl]

Thanks guys!

GlennUK - your second code seems to work fine (I can't believe I hadn't tried that in all the combinations I've been trying)

I've been concentrating on the .TextFrame element as I thought this HAD to be used.
Thankyou!

Moonfish - I couldn't get Application Caller to work in several combination of code I tried. I even tried a macro that did something completly different to what I wanted, to see if the AppCaller would work and it failed. Not sure why. Thanks for reply though!

 

[GlennUK]

That's great!

I use Application.Caller if I've assigned macros to shapes ( right click, Assign Macro ) to see which shape has been clicked.