次の方法で共有


Application.FeatureInstall プロパティ (Excel)

インストールされていない機能が必要なメソッドやプロパティを呼び出すときに、どのように処理するかを MsoFeatureInstall 定数で設定します。 次の表に示す MsoFeatureInstall クラスの定数のいずれかを指定できます。 次の表に示した MsoFeatureInstall クラスの定数を使用します。

構文

FeatureInstall

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

注釈

MsoFeatureInstall には、次のいずれかの定数を指定できます。

  • msoFeatureInstallNone。 アンインストールされた機能が呼び出されると、実行時に一般的な Automation エラーが生成されます。 これは既定の定数です。
  • 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 のサポートおよびフィードバックを参照してください。