本示例将活动文档中图形1 添加阴影。

ActiveDocument.Shapes(1).Shadow.Type = KsoShadow5