Application.FeatureInstall-Eigenschaft (Word)
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.
Hinweise
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
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.