Word VBA教程:ScaleHeight方法

以指定的比例缩放图形高度。对于图片和 OLE对象来说,可指明对图形所做的缩放是相对于原来的尺寸还是当前的尺寸。对于除图片和 OLE对象以外的其他图形来说,缩放总是相对于当前高度而言。

expression.ScaleHeight(Factor, RelativeToOriginalSize, Scale)

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

Factor   Single 类型,必需。表示重置尺寸后的图形高度与当前或原高度的比例。例如,设置此参数为 1.5 可使矩形放大 50%。

RelativeToOriginalSize   必需,MsoTriState。如果该参数为 True,则相对于原始大小缩放图形。如果为 False,则参照当前尺寸缩放图形。只有在指定图形为图片或 OLE对象时,才能指定此参数为 True。

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

Scale   可选,MsoScaleFrom。在缩放图形时,图形中位置不变的部分。

MsoScaleFrom 可以是下列 MsoScaleFrom 常量之一:
msoScaleFromBottomRight
msoScaleFromTopLeft default
msoScaleFromMiddle

VBA示例

本示例将myDocument 中所有图片和 OLE对象的原高度和宽度放大到 175%,将其他图形放大到当前高度和宽度的 175%。


Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    Select Case s.Type
        Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
                msoOLEControlObject, _
                msoLinkedPicture, msoPicture
            s.ScaleHeight 1.75, True
            s.ScaleWidth 1.75, True
        Case Else
            s.ScaleHeight 1.75, False
            s.ScaleWidth 1.75, False
    End Select
Next

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号