全部显示

ScaleHeight 方法

       

按指定的比例调整图形的高度。对于图片和 OLE 对象,可以指定是相对于原有大小还是相对于当前大小来调整图形的高度。对于不是图片和 OLE 对象的图形,总是相对于其当前大小来调整高度。

expression.ScaleHeight(Factor, RelativeToOriginalSize, Scale)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Factor   Single 类型,必需。表示图形调整后的高度与其当前高度或初始高度之间的比例。例如,如果要使矩形增大 50%,就应将本参数指定为 1.5。

RelativeToOriginalSize   MsoTriState 类型,必需。如果该值为 msoTrue,则相对于图形的原有尺寸来调整宽度。如果该值为 msoFalse,则相对于图形的当前尺寸来调整宽度。仅当指定的图形是图片或 OLE 对象时,才能将本参数指定为 msoTrue

Scale   MsoScaleFrom 类型,可选。指定调整图形的大小时,该图形哪一部分的位置将保持不变。

示例

本示例将 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