PresetLightingSoftness Property

Microsoft Publisher Visual Basic

constant that represents the intensity of the extrusion lighting. Read/write.

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