PresetLightingSoftness Property Example

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

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