本示例为活动文档中第一个图形添加阴影。
Set myShape = ActiveDocument.Shapes(1)
myShape.Shadow.Type = ksoShadow6