PresetLightingSoftness Property Example
This example specifies that the extrusion for shape one on myDocument
be lit brightly from the left.
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.PresetLightingSoftness = msoLightingBright
.PresetLightingDirection = msoLightingLeft
End With