使用 SizeMode 属性可以指定如何调整绑定对象框、未绑定对象框或图像控件中的图片或其他对象的大小。
expression.SizeMode
expression 必需。返回“Applies To”列表中的一个对象的表达式。
SizeMode 属性使用以下设置:
| 设置 | Visual Basic | 说明 | 
|---|---|---|
| 剪裁 | acOLESizeClip | (默认值)以对象的实际大小进行显示。如果对象的大小超出控件的大小,控件边框会在控件的右边界和下边界剪裁对象。 | 
| 拉伸 | acOLESizeStretch | 调整对象的大小以适合控件的大小。该设置可能会破坏对象的正常比例。 | 
| 缩放 | acOLESizeZoom | 显示整个对象,并根据需要调整对象大小但不扭曲对象的比例。如果调整控件的大小,该设置可能会在控件中留下额外的空间。 | 
提示 将该属性设为“剪裁”时显示速度是最快的。对于条形图和折线图则可以设为“拉伸”而不必关心大小调整,不过设为“拉伸”可能会破坏圆和照片的比例。
下面的示例使用名为 OLE1 的非绑定对象框创建链接的 OLE 对象,当用户单击一个命令按钮时调会整控件大小,以显示对象的全部内容。
Sub Command1_Click
    OLE1.Class = "Excel.Sheet"    ' Set class name.
    ' Specify type of object.
    OLE1.OLETypeAllowed = acOLELinked
    ' Specify source file.
    OLE1.SourceDoc = "C:\Excel\Oletext.xls"
    ' Specify data to create link to.
    OLE1.SourceItem = "R1C1:R5C5"
    ' Create linked object.
    OLE1.Action = acOLECreateLink
    ' Adjust control size.
    OLE1.SizeMode = acOLESizeZoom
End Sub