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