Shape.Shadow (Word)

Returns a ShadowFormat object that represents the shadow formatting for the specified shape.

Set myShape = ActiveDocument.Shapes _ 
 .AddShape(Type:=msoShapeRightArrow, _ 
 Left:=90, Top:=79, Width:=64, Height:=43) 
myShape.Shadow.Type = msoShadow5