Propriedade Project.ProjectGuideUseDefaultContent (Project)

True se o guia do projeto usa o conteúdo padrão. False se você deseja usar conteúdo personalizado para o guia do projeto. Boolean de leitura/gravação.

Sintaxe

expression. ProjectGuideUseDefaultContent

Expressão Uma variável que representa um objeto Project .

Comentários

Observação

[!OBSERVAçãO] Guia do projeto foi preterido no Project. Em vez do guia do projeto, recomendamos que você crie tarefa aplicativos do painel.

No entanto, você ainda pode usar guias de projeto personalizados e obter os arquivos de guia do projeto de padrão de download do SDK Project. Os arquivos do Project Guide são modificados para acesso em uma estrutura de pasta simples e para remover o gbui:// protocolo (gbui é o protocolo de interface do usuário baseado em meta no Office Project 2007 e versões anteriores). Todas as configurações do guia do projeto devem ser feitas programaticamente.

O valor padrão da propriedade ProjectGuideFunctionalLayoutPage é gbui://mainpage.htm, que não funciona porque o Project não implementa o gbui:// protocolo. O blog de programação do Project ( https://blogs.msdn.com/project_programmability/) inclui artigos que mostram como usar a guia do projeto em uma macro VBA e em um suplemento que é desenvolvido com o Visual c# nas ferramentas de desenvolvimento do Microsoft Office em Visual Studio 2010.

Exemplo

O exemplo de código a seguir altera o conteúdo padrão do guia do projeto para o arquivo XML especificado pelo usuário. Uma caixa de entrada solicita ao usuário o nome de arquivo e caminho para conteúdo personalizado do guia do projeto.

Observação

[!OBSERVAçãO] Antes de executar essa macro, altere o caminho para um caminho de exemplo que você gostaria de usar e altere o nome de arquivo com o nome de um arquivo de exemplo, como Custom.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.