Application.FeatureInstall プロパティ (Word)

Microsoft Word がインストールされていない機能を必要とするメソッドおよびプロパティへの呼び出しを処理する方法を設定または返します。 読み取り/書き込み が可能 です。

構文

式。 FeatureInstall

expression 必須です。 Application オブジェクトを表す変数を指定します。

注釈

msoFeatureInstallOnDemandWithUI 定数を使用して、機能のインストール中にアプリケーションが応答しないとユーザーが信じないようにします。 開発者は機能をインストールすることが自分だけのことをする場合は、定数 msoFeatureInstallNone を使用します。

DisplayAlerts プロパティが False に設定がある場合は、ユーザーは 呼び出したとき は、 msoFeatureInstallOnDemand に設定されている場合でも、新しい機能をインストールするのには求められません。 DisplayAlerts プロパティを True に設定すると、 呼び出したとき のプロパティが msoFeatureInstallOnDemand に設定されている場合、インストールの進行状況インジケーターが表示されます。

例

次の使用例は、Microsoft Excel の新しいインスタンスをアクティブにし、 呼び出したとき の値をチェックします。 MsoFeatureInstallNone にプロパティを設定すると、コードは、プロパティの設定を変更するかどうかをユーザーに確認するメッセージ ボックスを表示します。 ユーザーは、[はい] を応答する場合は、プロパティが msoFeatureInstallOnDemand に設定されます。

注:

[!メモ] この使用例を正しく機能させるためには、Microsoft Excel オブジェクト ライブラリへの参照を追加する必要があります。

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

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。