Share via


PresetLightingSoftness Property [Publisher 2003 VBA Language Reference]

MsoPresetLightingSoftness

MsoPresetLightingSoftness can be one of these MsoPresetLightingSoftness constants.
msoLightingBright
msoLightingDim
msoLightingNormal
msoPresetLightingSoftnessMixed

expression.PresetLightingSoftness

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example sets the extrusion for the first shape on the first page of the active publication to be lit brightly from the left. For this example to work, the specified shape must be a 3-D shape.

Sub SetExtrusionLightingBrighness()
    With ActiveDocument.Pages(1).Shapes(1).ThreeD
        .Visible = True
        .PresetLightingSoftness = msoLightingBright
        .PresetLightingDirection = msoLightingLeft
    End With
End Sub

Applies to | ThreeDFormat Object