Editing WordArt using vba<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
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></o>
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></o>
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]