使用 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