Excel VBA教程:ScaleHeight方法

按指定的比例调整图形的高度。对于图片和 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 为默认值

Excel VBA教程:ScaleHeight方法·示例

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

上页:Excel VBA教程:SaveWorkspace方法 下页:Excel VBA教程:ScaleWidth方法

Excel VBA教程:ScaleHeight方法

Excel VBA教程:ScaleWidth方法 Excel VBA教程:Scenarios方法
Excel VBA教程:ScrollIntoView方法 Excel VBA教程:ScrollWorkbookTabs方法
Excel VBA教程:Select方法 Excel VBA教程:SelectAll方法
Excel VBA教程:SendForReview方法 Excel VBA教程:SendKeys方法
Excel VBA教程:SendMail方法 Excel VBA教程:获取有关 Macintosh 关键字的“帮助”
Excel VBA教程:SendToBack方法 Excel VBA教程:SeriesCollection方法
Excel VBA教程:ServerStart方法 Excel VBA教程:ServerTerminate方法
Excel VBA教程:SetBackgroundPicture方法 Excel VBA教程:SetCMYK方法
Excel VBA教程:SetDefaultChart方法 Excel VBA教程:SetEditingType方法
Excel VBA教程:SetExtrusionDirection方法 Excel VBA教程:SetLinkOnData方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号