使用 SizeMode 属性可以指定如何调整绑定对象框、未绑定对象框或图像控件中的图片或其他对象的大小。
expression.SizeMode
expression 必需。返回“应用于”列表中的一个对象的表达式。
SizeMode 属性使用以下设置:
设置 |
Visual Basic |
说明 |
剪裁 |
acOLESizeClip |
(默认值)以对象的实际大小进行显示。如果对象的大小超出控件的大小,控件边框会在控件的右边界和下边界剪裁对象。 |
拉伸 |
acOLESizeStretch |
调整对象的大小以适合控件的大小。该设置可能会破坏对象的正常比例。 |
缩放 |
acOLESizeZoom |
显示整个对象,并根据需要调整对象大小但不扭曲对象的比例。如果调整控件的大小,该设置可能会在控件中留下额外的空间。 |
注释 可以在属性表、宏中或者使用 Visual Basic 对 SizeMode 属性进行设置。在 Visual Basic 中可以使用控件的默认控件样式或 DefaultControl 方法对该属性的默认值进行设置。
下面的示例使用名为 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