Project.ProjectGuideUseDefaultContent-Eigenschaft (Project)
True, Wenn der Projektberater den standardmäßigen Inhalt verwendet wird. False, Wenn angepasster Inhalt für den Projektberater verwendet werden soll. Boolescher Wert mit Lese-/Schreibzugriff.
Syntax
Ausdruck. ProjectGuideUseDefaultContent
Ausdruck Eine Variable, die ein Project-Objekt darstellt.
Hinweise
Hinweis
[!HINWEIS] Der Projektberater ist in Project veraltet. Anstelle der Projektberater wird empfohlen, dass Sie Task Pane apps erstellen.
Sie können jedoch weiterhin verwenden benutzerdefinierter Projektberater und rufen Sie die Standard-Projektberater Dateien aus dem Project SDK herunterladen. Die Projektleitfadendateien werden für den Zugriff in einer flachen Ordnerstruktur und zum Entfernen des gbui://
Protokolls geändert (gbui ist das zielbasierte Benutzeroberflächenprotokoll in Office Project 2007 und früheren Versionen). Alle Einstellungen, die Projektberater müssen programmgesteuert vorgenommen werden.
Der Standardwert der ProjectGuideFunctionalLayoutPage-Eigenschaft ist gbui://mainpage.htm
, was nicht funktioniert, da Project das gbui://
Protokoll nicht implementiert. Blog des Project-Programmierbarkeit ( https://blogs.msdn.com/project_programmability/
) enthält Artikel, die zeigen, wie Sie mit der Projektberater in einem VBA-Makro und in einem Add-in, die in Microsoft Office-Entwicklungstools in Visual Studio 2010 mit Visual c# entwickelt wurde.
Beispiel
Im folgenden Codebeispiel ändert den Standardinhalt für den Projektberater, der vom Benutzer angegebene XML-Datei. Ein Eingabefeld fordert den Benutzer für den Pfad und Namen für benutzerdefinierte Projektberater Inhalt.
Hinweis
[!HINWEIS] Ändern Sie vor dem Ausführen dieses Makros Pfad zu Pfad beispielsweise möchten Sie verwenden, und ändern Sie auf den Namen des eine Beispieldatei, wie etwa Benutzer.XML Dateinamen.
Sub UseCustomProjectGuide()
If Projects.Count = 0 Then
MsgBox "You must have at least one active project open."
Exit Sub
End If
Dim ProjectGuideURL As String
ProjectGuideURL = InputBox$(Prompt:="Enter the path and " _
& "file name of the XML file for custom Project " _
& "Guide content." & Chr(13) _
& "For example, path \filename ")
If ProjectGuideURL = Empty Then
Exit Sub
Else
ActiveProject.ProjectGuideUseDefaultContent = False
ActiveProject.ProjectGuideContent = ProjectGuideURL
MsgBox Prompt:="The custom Project Guide content " _
& "defined in " & ProjectGuideURL & " is " _
& "now in use for the current project."
End If
End Sub
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.