全部显示按指定的比例调整图形的宽度。对于图片和 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 为默认值 |
本示例将 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