PresetLightingSoftness Property Example

This example specifies that the extrusion for shape one on myDocument be lit brightly from the left.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .PresetLightingSoftness = msoLightingBright
    .PresetLightingDirection = msoLightingLeft
End With