Shape.ScaleHeight 方法 (Publisher)

  • 项目

按指定因子缩放形状的高度。 对于图片和 OLE 对象，您可以说明是相对于原始尺寸还是相对于当前尺寸缩放形状。

语法

表达式。ScaleHeight (Factor、 RelativeToOriginalSize、 fScale)

表达 一个代表 Shape 对象的变量。

参数

名称 必需/可选 数据类型 说明
因素 必需 Single 指定形状调整后的高度与当前或原始高度的比例。 例如，要将一个矩形放大百分之五十，请将此参数指定为 1.5。
RelativeToOriginalSize 必需 MsoTriState 指定是相对于对象的原始尺寸还是当前尺寸进行缩放。
fScale 可选 MsoScaleFrom 在缩放形状时，形状中位置不变的部分。 可以是 Microsoft Office 类型库中声明的 MsoScaleFrom 常量之一。

备注

RelativeToOriginalSize 参数可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一，如下表所示。

常量 说明
msoFalse 相对于当前尺寸缩放形状。
msoTrue 相对于原始尺寸缩放形状。

图片和 OLE 对象以外的形状始终相对于其当前高度进行缩放;为图片或 OLE 对象以外的形状指定 msoTrue 的 RelativeToOriginalSize 值会导致错误。

使用 ScaleWidth 方法可缩放形状的宽度。

示例

本示例将当前出版物的第一页上所有的图片和 OLE 对象缩放到其原始高度和宽度的 175%，并将所有其他形状缩放到其当前高度和宽度的 175%。

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。