Share via

PresetLightingDirection Property [Publisher 2003 VBA Language Reference]

  • Article

MsoPresetLightingDirection

MsoPresetLightingDirection can be one of these MsoPresetLightingDirection constants.
msoLightingBottom
msoLightingBottomLeft
msoLightingBottomRight
msoLightingLeft
msoLightingNone
msoLightingRight
msoLightingTop
msoLightingTopLeft
msoLightingTopRight
msoPresetLightingDirectionMixed

expression.PresetLightingDirection

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

Remarks

The lighting effects you set won't be apparent if the extrusion has a wire frame surface.

Example

This example sets the extrusion for the first shape on the first page of the active publication to extend toward the top of the shape and that the lighting for the extrusion come from the left. For this example to work, the specified shape must be a 3-D shape.

Sub ExtrusionLighting()
    With ActiveDocument.Pages(1).Shapes(1).ThreeD
        .Visible = True
        .SetExtrusionDirection msoExtrusionTop
        .PresetLightingDirection = msoLightingLeft
    End With
End Sub

Applies to | ThreeDFormat Object