How to change font style in wordart....

macropod · #2 01-24-2011, 04:20 PM

Hi Sivaraman,

Try something based on the following macro:

Code:

Sub UpdateWordArt()
Dim oShp As Shape, iShp As InlineShape
For Each oShp In ActiveDocument.Shapes
  If oShp.Type = msoTextEffect Then
    With oShp.TextEffect
      .FontName = "Arial"
      .FontBold = False
      .FontItalic = False
      .FontSize = 36
    End With
  End If
Next
For Each iShp In ActiveDocument.InlineShapes
  If iShp.Type = wdInlineShapePicture Then
    With iShp.TextEffect
      .FontName = "Arial"
      .FontBold = False
      .FontItalic = False
      .FontSize = 36
    End With
  End If
Next
End Sub

The macro handles WordArt objects that are in-line with the text or are 'floating' on the page. You can change the various attributes to suit your needs.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change font & point size?	markg2	Outlook	2	06-09-2010 03:23 PM
Change Default Font Word	datuk.ahmad	Word	3	03-09-2010 04:47 PM
Change font across company	Dill	Excel	1	11-04-2009 08:21 PM
Can't change font type or size	sideways	Word	2	11-01-2009 09:57 AM
How do I change the default font?	mrylanxus	Office	1	05-31-2009 01:52 AM