Emboss Property Example

This example sets the title text on slide one to embossed.

Application.ActivePresentation.Slides(1).Shapes.Title _
    .TextFrame.TextRange.Font.Emboss = True