Verwalten der allgemeinen Optionen von Project mithilfe von Skripts
Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der in Microsoft Project 2003 unter Allgemein verfügbaren Optionen.
|
Zuordnen des Dialogfelds zum Project-Objektmodell
Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Allgemein im Dialogfeld Optionen. Um auf diese Optionen in Microsoft Project 2003 zuzugreifen, klicken Sie auf Extras, Optionen und dann auf die Registerkarte Allgemein. Eine Zuordnung zwischen den verfügbaren Optionen in diesem Dialogfeld und dem Microsoft Project-Objektmodell wird nachstehend aufgeführt.
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 Allgemein 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 "Open last file on startup: " & objProject.LoadLastFile
Wscript.Echo "Prompt for project info on new projects: " & _
objProject.PromptForSummaryInfo
Wscript.Echo "Set AutoFilter on for new projects: " & _
objProject.AutoFilter
Wscript.Echo "Recently used file list: " & objProject.DisplayRecentFiles
Wscript.Echo "Number of recently used files: " & _
objProject.RecentFilesMaximum
Wscript.Echo "User name: " & objProject.UserName
Wscript.Echo "Advice from Planning Wizard: " & _
objProject.DisplayPlanningWizard
Wscript.Echo "Advice about using Microsoft Office Project: " & _
objProject.DisplayWizardUsage
Wscript.Echo "Advice about scheduling: " & _
objProject.DisplayWizardScheduling
Wscript.Echo "Advice about errors: " & objProject.DisplayWizardErrors
Wscript.Echo "Automatically add new resources and tasks: " & _
objDoc.AutoAddResources
Wscript.Echo "Default standard rate: " & _
objDoc.DefaultResourceStandardRate
Wscript.Echo "Default overtime rate: " & _
objDoc.DefaultResourceOvertimeRate
objProject.Quit(pjDoNotSave)
Beispielcode zum Ändern von Werten
Beispielskript zum Aktivieren der Beim Start zuletzt verwendete Datei öffnen.
Const pjDoNotSave = 0
Set objProject = CreateObject("MSProject.Application")
Set colProjects = objProject.Projects
Set objDoc = colProjects.Add()
objProject.LoadLastFile = TRUE
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.