使用 DefaultWebOptions 屬性可以引用只讀的 DefaultWebOptions 對象及其相關(guān)屬性。
expression.DefaultWebOptions
expression 必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。
DefaultWebOptions 屬性僅在使用 Visual Basic 時才可用。
DefaultWebOptions 屬性用于識別或設(shè)置 Application 對象的 DefaultWebOptions 對象屬性。這些屬性可用于設(shè)置和更改“Web 選項(xiàng)”對話框中可用的默認(rèn)網(wǎng)頁設(shè)置。如果要顯示“Web 選項(xiàng)”對話框,請單擊“工具”菜單上的“選項(xiàng)”命令;單擊“常規(guī)”選項(xiàng)卡,并單擊“Web 選項(xiàng)”按鈕。
以下示例在顯示一個已經(jīng)保存的數(shù)據(jù)訪問頁時,檢查是否已下載 Microsoft Office Web Components,并相應(yīng)地設(shè)置下載標(biāo)志。
Set objAppWebOptions = Application.DefaultWebOptions
With objAppWebOptions
If .DownloadComponents = True Then
strCompDownload = "Loaded"
Else
strCompDownload = "Not Loaded"
End If
End With