按指定的比例调整图形的高度。对于图片和 OLE 对象,可以指定是相对于原有大小还是相对于当前大小来调整图形的高度。对于不是图片和 OLE 对象的图形,总是相对于其当前大小来调整高度。
expression.ScaleHeight(Factor, RelativeToOriginalSize, Scale)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Factor Single 类型,必需。表示图形调整后的高度与其当前高度或初始高度之间的比例。例如,如果要使矩形增大 50%,就应将本参数指定为 1.5。
RelativeToOriginalSize MsoTriState 类型,必需。如果该值为 msoTrue,则相对于图形的原有尺寸来调整宽度。如果该值为 msoFalse,则相对于图形的当前尺寸来调整宽度。仅当指定的图形是图片或 OLE 对象时,才能将本参数指定为 msoTrue。
MsoTriState 可为以下 MsoTriState 常量之一。 |
msoCTrue 不应用于本属性。 |
msoFalse 相对于图形的当前尺寸来调整图形的大小。 |
msoTriStateMixed 不应用于本属性。 |
msoTriStateToggle 不应用于本属性。 |
msoTrue 相对于图形的初始尺寸来调整图形的大小。 |
Scale MsoScaleFrom 类型,可选。指定调整图形的大小时,该图形哪一部分的位置将保持不变。
MsoScaleFrom 可为以下 MsoScaleFrom 常量之一。 |
msoScaleFromBottomRight |
msoScaleFromMiddle |
msomsoScaleFromTopLeft 为默认值 |
本示例将 myDocument
中所有的图片和 OLE 对象的高度和宽度调整为其初始尺寸的 175%,而将所有其他类型图形的高度和宽度调整为其当前尺寸的 175%。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.ScaleHeight 1.75, msoTrue
s.ScaleWidth 1.75, msoTrue
Case Else
s.ScaleHeight 1.75, msoFalse
s.ScaleWidth 1.75, msoFalse
End Select
Next