本示例将第一个窗口中选定的所有图形,设置填充方式,再向右移 70 磅、向上移 50 磅,然后顺时针旋转 30 度角。 

With Windows(1).Selection.ShapeRange
    .Fill.PresetTextured KsoTextureKingsoft
    .IncrementLeft 70
    .IncrementTop -50
    .IncrementRotation 32
 End With