本示例将活动文档中图形1 添加阴影。
ActiveDocument.Shapes(1).Shadow.Type = KsoShadow5