In diesem Beispiel wird festgelegt, dass in myDocument die Projektion der ersten Form in Richtung des oberen Randes der Form verläuft und die Beleuchtung der Projektion von links kommt.
Set myDocument = Worksheets(1) With myDocument.Shapes(1).ThreeD .Visible = True .SetExtrusionDirection msoExtrusionTop .PresetLightingDirection = msoLightingLeft End With