Propriété Project.ProjectGuideContent (Project)

Obtient ou définit le nom du schéma XML utilisé par le Guide de projets. String en lecture/écriture.

Syntaxe

expression. ProjectGuideContent

expression Variable qui représente un objet Project .

Remarques

Remarque

Le guide Project est obsolète dans Project. Au lieu du Guide du projet, nous vous conseillons de créer des applications de volet Office.

Toutefois, vous pouvez toujours utiliser des guides de projet personnalisés et obtenir les fichiers de guide de projet par défaut à partir du téléchargement du Kit de développement logiciel (SDK) Project. Les fichiers du Guide de projet sont modifiés pour être accessibles dans une structure de dossiers plate et pour supprimer le gbui:// protocole (gbui est le protocole d’interface utilisateur basé sur les objectifs dans Office Project 2007 et versions antérieures). Tous les paramètres du Guide de projets doivent être réalisés par programmation.

La valeur par défaut de la propriété ProjectGuideFunctionalLayoutPage est gbui://mainpage.htm, ce qui ne fonctionne pas, car Project n’implémente pas le gbui:// protocole. Le blog sur la programmabilité de Project ( https://blogs.msdn.com/project_programmability/) contient des articles qui expliquent comment utiliser le Guide Project dans une macro VBA et dans un complément développé avec Visual C# dans les outils de développement Microsoft Office de Visual Studio 2010.

Exemple

L’exemple de code suivant montre comment remplacer le contenu par défaut du Guide des projets par le fichier XML spécifié par l’utilisateur. Une zone de texte invite l’utilisateur à fournir le chemin d’accès et le nom de fichier pour le contenu du Guide de projets personnalisé.

Remarque

Avant d’exécuter cette macro, remplacez le chemin d’accès par un exemple de chemin d’accès que vous souhaitez utiliser, et remplacez le nom de fichier par le nom d’un exemple de fichier, tel que custom.xml.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.