Word VBA教程:ScaleWidth方法

根据指定的系数缩放图形宽度。对于图片和 OLE对象来说,可指明图形缩放是根据原尺寸还是当前尺寸。对于图片和 OLE对象以外的其他图形来说,总是相对于当前宽度进行缩放。

expression.ScaleWidth(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号