ScaleHeight 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

ScaleHeight 方法

发布于 2019-08-07 字数 2390 浏览 909 评论 0

全部显示

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为默认值

示例

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

上一篇:SaveWorkspace 方法

下一篇:ScaleWidth 方法

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!