VBA in MacOS to change color of the font in a Shape

[BritsBlitz]

I have a VBA code to change the font color of a button when you click on it (Form Control, not Active X). If the current font color is Black, it will change to Orange once you click on the button. (FC is defined as Shape and is the Forms Control button I'm clicking on). On a PC, the code works fine. On a MAC, I get an error.

For PC, I used:
If FC.TextFrame.Characters.Font.Color = RGB(0, 0, 0) Then
FC.TextFrame.Characters.Font.Color = RGB(255, 102, 0)

When I run the same code on a MAC, I get an error and it seems like MAC doesn't like the .TextFrame.Characters. reference.
The error on a MAC is: "Run-time error '1004': Method 'TextFrame" of object 'Shape' failed

I tried recording the macro to see how MAC handles it, but it's different because you have to first select the button, then change the font color. The recorded macro is the same on PC and MAC which isn't helpful:
With Selection.Font
.Size = 12
.Underline = xUnderlineStyleNone
.Color = 15773696
End With

Any feedback if there is an alternative to .TextFrame.Characters.Font.Color = RGB(x.x.x) on a MAC?

 

[sijpie]

I am assuming you are talking about a button in sheet not in a userform.

What you could do is on the Apple in the VB editor, open the Object Browser (View menu). Find Shape in the list and see what properties and methods it has. On PC it has the TextFrame as one of its properties.

 

[BritsBlitz]

I am assuming you are talking about a button in sheet not in a userform.

What you could do is on the Apple in the VB editor, open the Object Browser (View menu). Find Shape in the list and see what properties and methods it has. On PC it has the TextFrame as one of its properties.

Hi Sijpie

Yes, I was referring to buttons. TextFrame is only supported on PC and I couldn't figure out what the alternative to TextFrame would be on a MAC. For the time being, I got around the issue by not using buttons at all and instead just placed a rectangle shape on the sheet and assigned the macro to the shape to change the shape color instead of the text color inside the button. I'm still looking for the MAC solution so will give your idea a try.

 

[sijpie]

With your rectangle shape you can also fill it with an image of a button, and have two identical images, one with black text, one with orange. Then n the macro swap the image of the shape.

Or what I often do is have both shapes on top of each other, and with the click of the shape change the visibility of each.

Good luck