在PowerPoint中创建插入图形的位置

Question

我正在尝试编写可复制以下形状的VBA代码：

我写了一段可以创建形状的代码：

Sub InsertShape()

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeChevron, _
    Left:=50, Top:=50, Width:=100, Height:=200


End Sub

但是现在我正在寻找一种方法，以便可以调整宽度和高度并将其移动到特定位置。如果单击该形状（请参见突出显示的区域），我将看到目标形状具有以下值：

高度：6：51与：7,07

[水平位置：11,16垂直位置：4,52

关于我应添加到代码中的内容的任何反馈，以使形状处于正确的位置（+正确的宽度和高度）。

Answer 1

使用.Height / .Width / .Left / .Top参数调整形状的大小和位置（请注意，这些值以磅为单位； 28.35点/ cm或72点/英寸）。

使用形状的.Adjustments（1）属性修改形状的特征。从大约.2的值开始，以获得您想要的形状。