Setting ThemeFont and ThemeColor

[Jan Kuèera]

Hello...

Dim sh As Shape

Set sh = Sheet1.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
sh.TextFrame2.TextRange.Text = "Hello world!"

sh.TextFrame.Characters(0, 12).Font.ThemeFont = xlThemeFontMajor
sh.TextFrame.Characters(0, 12).Font.ThemeColor = xlThemeColorLight2

both last two rows returns
1004 Application-defined or object-defined error.

Anybody has an idea what is wrong?

Thanks!
Jan

 

[Conrad S]

Try this:

Sub test()
Dim sh As Shape

Set sh = Sheets(1).Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
sh.TextFrame.Characters.Text = "Hello world!"

sh.TextFrame.Characters(0, 12).Font.Name = xlThemeFontMajor
sh.TextFrame.Characters(0, 12).Font.Color = xlThemeColorLight2

End Sub

 

[Jan KuÄera]

Thanks Conrad for try, but
Error 1004, "Unable to set the Name property of the Font class" this time.

Jan

 

[Jan KuÄera]

Gotcha!

it is .Font.Fill.ForeColor.SchemeColor and .FontName = xlThemeFontMajor of
TextFrame2.

Thanks for hint!

Jan