本示例向 myDocument 添加一个立方体。 可以移动此立方体并调整其大小,但不能重新设置其比例。

Set myDocument = ActiveDocument
myDocument.Shapes.AddShape(ksoShapeCube, _
    50, 50, 100, 200).LockAspectRatio = ksoTrue