Application.FeatureInstall-Eigenschaft (Word)

  • Artikel

Gibt die Vorgehensweise zurück, in der in Microsoft Word Aufrufe von Methoden und Eigenschaften bearbeitet werden, die noch nicht installierte Features voraussetzen. MsoFeatureInstall-Objekt mit Lese-/Schreibzugriff.

Syntax

expression. FeatureInstall

Ausdruck: Erforderlich. Eine Variable, die ein Application -Objekt darstellt.

HinwBemerkungeneise

Verwenden Sie die MsoFeatureInstallOnDemandWithUI-Konstante , um zu verhindern, dass Benutzer glauben, dass die Anwendung nicht reagiert, während ein Feature installiert wird. Mit der msoFeatureInstallNone-Konstante können Sie festlegen, dass Funktionen nur vom Entwickler installiert werden.

Wenn Die DisplayAlerts-Eigenschaft auf False festgelegt ist, werden Benutzer nicht aufgefordert, neue Features zu installieren, auch wenn die FeatureInstall-Eigenschaft auf msoFeatureInstallOnDemand festgelegt ist. Wenn die DisplayAlerts-Eigenschaft auf True festgelegt ist, wird während der Installation eine Statusanzeige angezeigt, vorausgesetzt, die FeatureInstall-Eigenschaft ist auf msoFeatureInstallOnDemand festgelegt.

Beispiel

In diesem Beispiel wird eine neue Instanz von Microsoft Excel aktiviert und der Wert der FeatureInstall-Eigenschaft überprüft. Wenn die Eigenschaft auf MsoFeatureInstallNone festgelegt ist, zeigt der Code ein Meldungsfeld mit der Frage, ob die Einstellung der Eigenschaft geändert werden soll. Wenn der Benutzer mit "Ja" antwortet, wird die Eigenschaft auf msoFeatureInstallOnDemand festgelegt.

Hinweis

Damit dieses Beispiel ordnungsgemäß funktionieren kann, müssen Sie der Microsoft Excel Object Library einen Verweis hinzufügen.

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

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.