Editing WordArt FontSize

larnels

New Member
Joined
Jun 23, 2010
Messages
25
Editing WordArt using vba<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
I am having a problem with editing a shape (WordArt). You can step through this “With, End-With” without any errors and every line works except .FontSize (in red, the size never changes). I can work around this by changing the height and width of the WordArt, but this is mostly trial and error to finally get the desired font size.<o:p></o:p>
Code:
<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]Sub ChngTxt1()<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]‘[/FONT][/COLOR][COLOR=black][FONT=Arial]With Sheets(1).Shapes(1).TextEffect<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial].Text = "Good Morning Everyone.”<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial].FontName = "Ariel"<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial].FontBold = True<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial].FontItalic = False<o:p></o:p>[/FONT][/COLOR]
[COLOR=red][FONT=Arial].FontSize = 16<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]End With<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]End Sub[/FONT][/COLOR]
[COLOR=black][FONT=Arial][\code]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]Once again any help would be appreciated<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]larnels<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Arial]<o:p></o:p>[/FONT][/COLOR]
 
One thing worth checking: In the VBE Tools > References, check for any that are marked MISSING.
 
Upvote 0

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.
VoG, best I can tell there are no missing references in tools, but there are so many, it is a little hard to tell. The unchecked ones refer to other apps such as apple quick time, etc.. I did do a clean reinstall of Excel 2000, but FontSize still didn’t work. I also tried adding the wordart using vba instead of directly from the worksheet. That didn’t work either. Well, as I said, it really is just academic now, so please don’t spend any more time on this little weird problem of mine. But I sincerely do want to thank you for your time and effort to help me.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
larnels<o:p></o:p>
 
Upvote 0

Forum statistics

Threads
1,215,431
Messages
6,124,855
Members
449,194
Latest member
HellScout

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top