Verwalten der Ansichtsoptionen von Project mithilfe von Skripts
Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der in Microsoft Project 2003 unter Ansicht verfügbaren Optionen.
|
Zuordnen des Dialogfelds zum Project-Objektmodell
Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Ansicht im Dialogfeld Optionen. Um in Microsoft Project 2003 auf diese Optionen zuzugreifen, klicken Sie auf Extras, anschließend auf Optionen, und klicken Sie dann auf die Registerkarte Ansicht. Eine Zuordnung zwischen den verfügbaren Optionen in diesem Dialogfeld und dem Microsoft Project-Objektmodell wird nachstehend aufgeführt.
Beachten Sie, dass die orangefarben dargestellten Elemente keine entsprechende Eigenschaft im Project-Objektmodell besitzen. Die aktuellen Werte von QuickInfo für Projekte und Gliederungssymbol anzeigen können mit dem Skript zum Abrufen von Eigenschaftswerten nicht zurückgegeben werden. Die Werte für diese Elemente können jedoch mithilfe von Methoden konfiguriert werden. Ein Beispielskript, in dem diese Methoden zum Ändern der Werte verwendet werden, finden Sie ebenfalls auf dieser Seite.
Die auf dieser Seite aufgeführten Skripts wurden mit Microsoft Project 2003 getestet. Es ist anzunehmen, dass jede Version von Microsoft Project, die Visual Basic für Applikationen (VBA) unterstützt, zumindest einen Teil der bereitgestellten Funktionen ausführen kann. Die Skripts wurden jedoch nicht in einer dieser Versionen getestet.
Beispielcode zum Abrufen von Werten
Beispielskript zum Abrufen der Konfigurationsinformationen von der Registerkarte Ansicht im Dialogfeld Optionen von Microsoft Project 2003.
Const pjDoNotSave = 0
Set objProject = CreateObject("MSProject.Application")
Set colProjects = objProject.Projects
Set objDoc = colProjects.Add()
Wscript.Echo "Default view: " & objProject.DefaultView
Wscript.Echo "Date format: " & objProject.DefaultDateFormat
Wscript.Echo "Status bar: " & objProject.DisplayStatusBar
Wscript.Echo "Windows in Taskbar: " & objProject.DisplayWindowsInTaskbar
Wscript.Echo "Scroll bars: " & objProject.DisplayScrollBars
Wscript.Echo "Entry bar: " & objProject.DisplayEntryBar
Wscript.Echo "OLE links indicators: " & objProject.DisplayOLEIndicator
Wscript.Echo "Show external successors: " & _
objDoc.ShowExternalSuccessors
Wscript.Echo "Show external predecessors: " & _
objDoc.ShowExternalPredecessors
Wscript.Echo "Show Links Between Projects dialog on open: " & _
objDoc.ShowCrossProjectLinksInfo
Wscript.Echo "Automatically accept new external data: " & _
objDoc.AcceptNewExternalData
Wscript.Echo "Symbol: " & objDoc.CurrencySymbol
Wscript.Echo "Placement: " & objDoc.CurrencySymbolPosition
Wscript.Echo "Decimal digits: " & objDoc.CurrencyDigits
objProject.Quit(pjDoNotSave)
Beispielcode zum Ändern von Werten
Beispielskript zum Deaktivieren der Statusleiste.
Const pjDoNotSave = 0
Set objProject = CreateObject("MSProject.Application")
Set colProjects = objProject.Projects
Set objDoc = colProjects.Add()
objProject.DisplayStatusBar = FALSE
objProject.Quit(pjDoNotSave)
Beispielcode zum Ändern von Werten ohne zugehörige Eigenschaften
Beispielskript zum Deaktivieren der Optionen QuickInfo für Projekte und Gliederungssymbol anzeigen. Die Kommas vor dem Wert FALSCH stehen für andere Werte, die mit dieser Methode konfiguriert werden können. Durch die leeren Parameter wird angezeigt, dass die Methode die Werte dieser Elemente nicht ändern soll.
Set objProject = CreateObject("MSProject.Application")
Set colProjects = objProject.Projects
Set objDoc = colProjects.Add()
errReturn = objProject.OptionsView(,,,,,,,,,,,,,,,,,,,FALSE)
objProject.OutlineSymbolsToggle(FALSE)
objProject.Quit(pjDoNotSave)
Die Beispielskripts werden nicht durch die Standardsupportprogramme und -dienste von Microsoft unterstützt. Die Beispielskripts werden im gegenwärtigen Zustand und ohne jegliche Gewährleistung zur Verfügung gestellt. Microsoft schließt darüber hinaus jede konkludente Gewährleistung aus, einschließlich und ohne Einschränkung jeglicher konkludenten Gewährleistung der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Alle Risiken, die aus der Verwendung oder Ausführung der Beispielskripts und der Dokumentation entstehen, unterliegen vollständig Ihrer Verantwortung. In keinem Fall können Microsoft, ihre Autoren oder andere an der Erstellung, Produktion oder Bereitstellung der Skripts Beteiligten für irgendwelche Schäden haftbar gemacht werden (einschließlich und ohne Einschränkung aller Schäden durch Geschäftsverluste, Geschäftsausfälle, den Verlust von Geschäftsinformationen oder andere finanzielle Verluste), die aus der Verwendung oder der Nichteignung zur Verwendung der Beispielskripts oder der Dokumentation entstehen, auch wenn Microsoft über die Möglichkeit solcher Schäden unterrichtet worden ist.