ProjectGuideContent Property Example for Microsoft Project 2002
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Randall Isenhour
Microsoft Corporation
August 2002
Contents
Overview
Requirements
Running the code example
Use a macro to designate an XML file for custom Project Guide content
ProjectGuideContent property sample code
Overview
The following code sample changes the default content for the Project Guide to the XML file specified by the user. An input box prompts the user for the path and file name for custom Project Guide content, and Microsoft® Project sets the appropriate options in the Interface tab of the Options dialog box. (3 pages)
**Note **If the user enters an invalid path or file name for the custom Project Guide content, Microsoft Project displays the following message: "Microsoft Project cannot use the XML file path\filename.xml to display the Project Guide content for this project. You can either open this project using the default Project Guide content, or you can retry opening the XML file."
Requirements
- Microsoft Project Professional 2002 or Microsoft Project Standard 2002
Running the code example
This code example assumes that you are familiar with Microsoft Project and Microsoft Visual Basic® for Applications (VBA), and that you can write or reuse supplementary code as necessary.
To run this code example, you must have Microsoft Project 2002 (either Standard or Professional edition) installed on your computer. You can either paste the code into the Microsoft Visual Basic Editor (VBE) in Microsoft Project or into your VBA project.
Use a macro to designate an XML file for custom Project Guide content
You can cut and paste the Microsoft Visual Basic for Applications (VBA) code below.
To create a new macro
- On the Tools menu, point to Macro and click Macros.
- Type a name for your new macro in the Macro name box.
- Select the project where you wish to create the macro in the Macros in box.
- Click Create.
ProjectGuideContent property sample code
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, c:\custom.xml")
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