Excel VBA教程:ScaleWidth方法

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

expression.ScaleWidth(Factor, RelativeToOriginalSize, Scale)

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

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

RelativeToOriginalSize  MsoTriState 类型,必需。如果该值为 False,则相对于初始尺寸调整图形的大小。仅当指定的图形是图片或 OLE对象时,才能将本参数指定为 True。

MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue 不应用于本属性。
msoFalse 相对于图形的当前尺寸来调整其大小。
msoTriStateMixed 不应用于本属性。
msoTriStateToggle 不应用于本属性。
msoTrue 仅当指定的图形是图片或 OLE对象时,才能使用本参数。

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

MsoScaleFrom 可为以下 MsoScaleFrom 常量之一。
msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft 为默认值

Excel VBA教程:ScaleWidth方法·示例

本示例将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教程:ScaleHeight方法 下页:Excel VBA教程:Scenarios方法

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方法 Excel VBA教程:SetParam方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号