OfficeTips Home || VBA Section || General Section || Download Section || Privacy Policy

How can I access the new text effects?

PowerPoint 2007 introduced the several font formatting options in PPT 2007. However if you try to access them thru the TextFrame object you will meet with little success. If you access the Font object available within the new TextFrame2 object, it actually returns a Font2 class object which has all the new font formatting options. All of these properties are read/write.

 

Sub TextFrame2Listing()

Dim oFont As Font2

Set oFont = ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange.Font
With oFont

    Debug.Print "Allcaps: " & .Allcaps
    Debug.Print "Bold: " & .Bold
    Debug.Print "Caps: " & .Caps
    Debug.Print "DoubleStrikeThrough: " & .DoubleStrikeThrough
    Debug.Print "Embeddable: " & .Embeddable
    Debug.Print "Embedded: " & .Embedded
    Debug.Print "Equalize: " & .Equalize
    Debug.Print "Highlight: " & .Highlight
    Debug.Print "Italic: " & .Italic
    Debug.Print "Kerning: " & .Kerning
    Debug.Print "Size: " & .Size
    Debug.Print "Smallcaps: " & .Smallcaps
    Debug.Print "SoftEdgeFormat: " & .SoftEdgeFormat
    Debug.Print "Spacing: " & .Spacing
    Debug.Print "Strike: " & .Strike
    Debug.Print "Strikethrough: " & .Strikethrough
    Debug.Print "Subscript: " & .Subscript
    Debug.Print "Superscript: " & .Superscript
    Debug.Print "UnderlineColor: " & .UnderlineColor
    Debug.Print "UnderlineStyle: " & .UnderlineStyle
    Debug.Print "WordArtFormat: " & .WordArtFormat
   

End With

End Sub

 

Some of the Font2 class members are objects which have additional properties for formatting. Namely Glow, Shadow and Reflection. Look here to assign a glow to the shape. Lets see how to read the Reflection information.

 

To set this up:

1. Draw a shape on the slide.

2. Type some text in the shape.

3. Select the text and assign a  reflection text effect (I chose 'Tight reflection and touching' from the UI.

4. Select the shape and then run this macro.

  Sub TextFrame2Reflection()

Dim oFont As Font2

Set oFont = ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange.Font
With oFont.Reflection
     Debug.Print .Type
End With

End With

End Sub


The value returned is 1 or msoReflectionType1. There are 11 enum value for msoReflectionType msoReflectionType1 to msoReflectionType9 (corresponding to 9 available in the PowerPoint UI), msoReflectionTypeNone and msoReflectionTypeMixed. A similar reflection object is available for the shape object.
   


Copyright 1999-2014 (c) Shyam Pillai. All rights reserved.