Partager via

Propriété Project.ProjectGuideContent (Project)

  • Article

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 du projet est déconseillé dans Project. Au lieu du Guide de projet, nous vous recommandons de créer des applications du volet Office.

Toutefois, vous pouvez toujours utiliser des guides de projet personnalisés et obtenir les fichiers par défaut du Guide de projet à partir du téléchargement du Kit de développement logiciel (SDK) Project. Les fichiers du Guide de projet sont modifiés pour y accéder dans une structure de dossiers plats et pour supprimer le gbui:// protocole (gbui est le protocole d’interface utilisateur basé sur les objectifs dans Office Project 2007 et les 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, qui ne fonctionne pas, car Project n’implémente pas le gbui:// protocole. Le blog programmabilité du projet ( https://blogs.msdn.com/project_programmability/) inclut des articles qui montrent comment utiliser le Guide de projet dans une macro VBA et dans un complément développé avec Visual C# dans les outils de développement Microsoft Office dans 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 par un exemple de chemin d’accès que vous souhaitez utiliser et remplacez filename 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.