OLETypeAllowed 屬性

此頁沒有內(nèi)容條目
內(nèi)容

expandtri全部顯示

使用 OLETypeAllowed 屬性可以指定控件可包含的 OLE 對象的類型。String 型，可讀寫。

expression.OLETypeAllowed

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。

說明

OLETypeAllowed 屬性使用以下設(shè)置：

設(shè)置

常量

說明

鏈接

acOLELinked

控件只允許包含一個鏈接對象。

嵌入

acOLEEmbedded

控件只允許包含一個嵌入對象。

兩者皆可

acOLEEither

（默認(rèn)值）控件允許包含一個鏈接或嵌入對象。

 

注釋  可以通過使用控件的屬性表、宏或 Visual Basic 來設(shè)置 OLETypeAllowed 屬性，還可以通過使用控件的默認(rèn)控件樣式或 Visual Basic 中的 DefaultControl 方法來設(shè)置該屬性的默認(rèn)值。

注釋   對于未綁定對象框和圖表，不能在創(chuàng)建對象之后更改 OLETypeAllowed 設(shè)置。對于綁定對象框，可以在對象創(chuàng)建之后更改該設(shè)置。更改 OLETypeAllowed 屬性設(shè)置只影響添加到控件中的新對象。

如果要確定控件中已包含的 OLE 對象的類型，可以使用 OLEType 屬性。

示例

下面的示例使用名為 OLE1 的未綁定對象框架創(chuàng)建鏈接的 OLE 對象，當(dāng)用戶單擊一個命令按鈕時它會調(diào)整控件大小，以顯示對象的所有內(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