共用方式為

Excel) (Application.FeatureInstall 屬性

  • 發行項

會傳回或設定 (常數) 值，指定 Microsoft Excel 如何處理對需要尚未安裝功能之方法和屬性的呼叫。 可以是下表所列的其中一個 MsoFeatureInstall 常數。 讀取/寫入 MsoFeatureInstall 。

語法

運算式。FeatureInstall

expression 代表 Application 物件的變數。

註解

MsoFeatureInstall 可以是下列其中一個常數：

  • msoFeatureInstallNone。 呼叫卸載的功能時，在執行時間產生一般自動化錯誤。 這是預設常數。
  • msoFeatureInstallOnDemand。 提示使用者安裝新功能。
  • msoFeatureInstallOnDemandWithUI。 在安裝期間顯示進度表;不會提示使用者安裝新功能。

使用 msoFeatureInstallOnDemandWithUI 常數，以防止使用者認為應用程式在安裝功能時沒有回應。 如果您想要僅需一個可以安裝功能開發人員，使用 msoFeatureInstallNone 常數。

如果您將 DisplayAlerts 屬性設定為 False，即使 FeatureInstall 屬性設定為 msoFeatureInstallOnDemand，也不會提示使用者安裝新功能。 DisplayAlerts 屬性設為 True ，如果 FeatureInstall 屬性設為 msoFeatureInstallOnDemand 會顯示安裝進度百分比。

範例

本範例會啟動 Microsoft Word 的一個新的執行個體，並檢查 FeatureInstall 屬性的值。 同時確定要設定對 Microsoft Word 物件程式庫的參照。 如果 FeatureInstall屬性設定為 msoFeatureInstallNone，則本程式碼將顯示一個訊息方塊，以詢問使用者是否希望變更該屬性的設定。 如果使用者回應 [是]，屬性會設定為 msoFeatureInstallOnDemand。

Dim WordApp As New Word.Application, Reply As Integer 
Application.ActivateMicrosoftApp xlMicrosoftWord With WordApp 
    If .FeatureInstall = msoFeatureInstallNone Then 
        Reply = MsgBox("Uninstalled features for this " _ 
            & "application " & vbCrLf _ 
            & "may cause a run-time error when called." & vbCrLf _ 
            & vbCrLf _ 
            & "Would you like to change this setting" & vbCrLf _ 
            & "to automatically install missing features?" _ 
            , 52, "Feature Install Setting") 
        If Reply = 6 Then 
            .FeatureInstall = msoFeatureInstallOnDemand 
        End If 
    End If 
End With

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。