In diesem Beispiel wird der Schatten der dritten Form in myDocument um 3 Punkt nach links verschoben.
Set myDocument = Worksheets(1) myDocument.Shapes(3).Shadow.IncrementOffsetX -3