ScaleWidth方法总结计划.docxVIP

ScaleWidth 方法 按指定的比例调整图形的宽度。对于图片和 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 为默认值 Excel VBA 教程： ScaleWidth 方法·示例 本示例将 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