FontBold Property Example

This example sets the font to bold for shape three on myDocument if the shape is WordArt.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontBold = True
    End If
End With