使用 SizeMode 屬性可以指定如何調(diào)整綁定對(duì)象框、未綁定對(duì)象框或圖像控件中的圖片或其他對(duì)象的大小。
expression.SizeMode
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
SizeMode 屬性使用以下設(shè)置:
設(shè)置 |
Visual Basic |
說明 |
剪裁 |
acOLESizeClip |
(默認(rèn)值)以對(duì)象的實(shí)際大小進(jìn)行顯示。如果對(duì)象的大小超出控件的大小,控件邊框會(huì)在控件的右邊界和下邊界剪裁對(duì)象。 |
拉伸 |
acOLESizeStretch |
調(diào)整對(duì)象的大小以適合控件的大小。該設(shè)置可能會(huì)破壞對(duì)象的正常比例。 |
縮放 |
acOLESizeZoom |
顯示整個(gè)對(duì)象,并根據(jù)需要調(diào)整對(duì)象大小但不扭曲對(duì)象的比例。如果調(diào)整控件的大小,該設(shè)置可能會(huì)在控件中留下額外的空間。 |
注釋 可以在屬性表、宏中或者使用 Visual Basic 對(duì) SizeMode 屬性進(jìn)行設(shè)置。在 Visual Basic 中可以使用控件的默認(rèn)控件樣式或 DefaultControl 方法對(duì)該屬性的默認(rèn)值進(jìn)行設(shè)置。
下面的示例使用名為 OLE1 的非綁定對(duì)象框創(chuàng)建鏈接的 OLE 對(duì)象,當(dāng)用戶單擊一個(gè)命令按鈕時(shí)調(diào)會(huì)整控件大小,以顯示對(duì)象的全部內(nèi)容。
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