Adjustments 对象:它包含指定的自选图形、艺术字对象或连接符的调整值的集合。
每个调整值代表了调整句柄可以调整的方向。因为某些调整句柄有两个调整方向,所以形状的调整指数量可以大于调整句柄的数量。一个形状最多可有八种调整。
如何来使用Adjustments对象
使用 Adjustments 属性返回 Adjustments 对象。使用 Adjustments(index) 返回单个调整值,其中 index 是调整值的索引编号。
不同的形状有不同数量的调整值,不同的调整值以不同的方式改变形状的几何外形,且不同的调整值有不同的有效值范围。例如,以下示例显示右箭头标注的四个调整值分别如何影响该标注几何外形的定义。
注意:由于每个形状有不同的调整值集,校验指定形状的调整行为的最好方法是手动创建一个图例,在打开宏记录器的情况下作调整,然后检查记录的代码。
下表总结了不同类型调整值的有效范围。大多数情况下,如果指定了超出有效范围的值,调整值将被分配一个最接近所设值的有效值。
调整类型 有效值
线性(水平或垂直) 通常 0.0 值代表形状的左边界或上边界,而 1.0 值代表形状的右边界或下边界。有效值对应于有效的手动调整。例如,如果只能将调整控点手动拖动形状的一半宽度,则相应的调整值最大为 0.5。对于象连接符和标注这样的形状,0.0 和 1.0 值代表由它们的起始和终止点定义的矩形界限,此时负值和大于 1.0 的值是有效的。
径向 调整值 1.0 对应于形状宽度。最大值为 0.5,或形状宽度的一半。
角度 调整值用度表示。如果指定的值超出了 - 180 到 180 这个范围,就将它在该范围内标准化。
以下示例向 myDocument 中添加右箭头标注,并且设置该标注的调整值。请注意,尽管形状只有三个调整句柄,但是它有四个调整值。第三和第四个调整值都和箭头头部和颈部间的调整句柄相对应。
Set myDocument = ActivePresentation.Slides(1)
Set rac = myDocument.Shapes _
.AddShape(msoShapeRightArrowCallout, 10, 10, 250, 190)
With rac.Adjustments
.Item(1) = 0.5 'adjusts width of text box
.Item(2) = 0.15 'adjusts width of arrow head
.Item(3) = 0.8 'adjusts length of arrow head
.Item(4) = 0.4 'adjusts width of arrow neck
End With