次の方法で共有

Application.FeatureInstall プロパティ (PowerPoint)

  • [アーティクル]

インストールされていない機能を必要とするメソッドやプロパティを呼び出したときの処理方法を設定します。 値の取得と設定が可能です。

構文

expression. FeatureInstall

expressionApplicationオブジェクトを表す変数 。

戻り値

MsoFeatureInstall

注釈

msoFeatureInstallOnDemandWithUI 定数を使用して、機能のインストール中にアプリケーションが応答していないとユーザーが信じないようにします。 エンドユーザー機能のインストールを除外するのには、エラー トラップ ルーチンで定数 msoFeatureInstallNone を使用します。

注:

[!メモ] 文字列の中でインストールされていないプレゼンテーション デザイン テンプレートを参照する場合、実行時エラーが生成されます。 テンプレートは、 呼び出したとき のプロパティの設定に関係なく自動的にインストールされていません。 インストールされていないテンプレートに対して ApplyTemplate メソッドを使用するのには最初に追加のデザイン テンプレートをインストールする必要があります。 これを行うには、Microsoft Office のインストール プログラム (Windows のコントロール パネルの [ プログラムの追加と削除アイコンをクリックして利用可能な) を実行して、PowerPoint の他のデザイン テンプレートをインストールします。

呼び出したとき の値には、 これらの可能 のいずれかを指定できます。

定数 説明
msoFeatureInstallNone 既定値です。 インストールされていない機能が呼び出されると、実行時にトラップ可能なオートメーション エラーが発生します。
msoFeatureInstallOnDemand 新機能をインストールするように求めるダイアログ ボックスが表示されます。
msoFeatureInstallOnDemandWithUI インストール時に進行状況インジケーターが表示されます。 新機能のインストールを求めるメッセージは表示されません。

例

この例では、 呼び出したとき の値をチェックします。 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 のサポートおよびフィードバックを参照してください。