共用方式為

PowerPoint) (Application.FeatureInstall 屬性

  • 發行項

會傳回或設定 Microsoft PowerPoint 處理需要未安裝之功能的方法及屬性呼叫的方式。 讀取/寫入。

語法

expression。 FeatureInstall

expression 代表 Application 物件的變數。

傳回值

MsoFeatureInstall

註解

使用 msoFeatureInstallOnDemandWithUI 常數，防止使用者相信應用程式在安裝功能時沒有回應。 若要排除使用者功能安裝使用錯誤捕捉常式 msoFeatureInstallNone 常數。

注意事項

[!注意事項] 如果您參照字串中解除安裝的簡報設計範本，則會產生執行階段錯誤。 該範本未自動安裝 FeatureInstall 屬性的設定為何。 若要使用 ApplyTemplate 方法目前未安裝的範本，您必須先安裝其他設計範本。 若要這樣做，其他簡報設計範本 PowerPoint 執行安裝 Microsoft Office 安裝程式 (可按一下 Windows [控制台] 中的 [ 新增/移除程式] 圖示)。

FeatureInstall 屬性的值可以是下列其中一個 MsoFeatureInstall 常數。

常數 描述
msoFeatureInstallNone 預設值。 在呼叫未安裝的功能時會產生可截獲的執行階段自動化錯誤。
msoFeatureInstallOnDemand 會顯示對話方塊，提示使用者安裝新功能。
msoFeatureInstallOnDemandWithUI 會在安裝期間顯示完成百分比。 不會提示使用者安裝新功能。

範例

本範例會檢查 FeatureInstall 屬性的值。 如果屬性設定為 msoFeatureInstallNone 、 程式碼會顯示訊息方塊，詢問使用者是否要將屬性設定變更。 如果使用者的回應 「 是 」，屬性是設定為 msoFeatureInstallOnDemand 。

With Application
    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 when called?" _
                , 52, "Feature Install Setting")

            If Reply = 6 Then
                .FeatureInstall = msoFeatureInstallOnDemand
            End If
    End If
End With

另請參閱

Application 物件

支援和意見反應

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