本示例在活动窗口中判断选定的图形是否为图片,如果是则设置为阴影效果,否则设置为三维效果。

With ActiveWindow.Selection.ShapeRange
    If .Type = ksoPicture Then
     .Shadow.Type = KsoShadow1
    Else
     .ThreeD.SetThreeDFormat (ksoThreeD13)
    End If
End With