Método Application.AddResourcesFromProjectServer (Project)

Abre a caixa de diálogo Compilar Equipe se você estiver conectado ao Project Server e estiver atualmente em uma exibição de recurso.

Sintaxe

expression. AddResourcesFromProjectServer

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Booliano

Comentários

O método AddResourcesFromProjectServer está disponível somente nos modos de exibição de recursos e retornará um erro interceptável (código de erro 1100) quando aplicado a um modo de exibição não seja de recursos.

Exemplo

O exemplo a seguir exibe a caixa de diálogo Criar Equipe no Project Server. Primeiro, o Project adiciona a URL especificada em Opções de Colaboração (menu Colaboração) à lista de sites confiáveis do Microsoft Internet Explorer. Após a confirmação, o Project alterna para uma exibição de Folha de Recursos e exibe a caixa de diálogo Compilar Equipe do Project Server , se conectado ao Meu Computador no modo de grupo de trabalho. O Project exibe a caixa de diálogo Compilar Equipe do Nome do Projeto quando conectado ao Project Server.

Sub AddResources() 
   If Projects.Count = 0 Then 
      MsgBox "You must have at least one active project open." 
      Exit Sub 
   End If 
 
   If ActiveProject.ServerURL = "" Then 
      MsgBox "A Project Server URL has not been " _ 
         & "specified." & Chr(13) & "Click OK to select " _ 
         & "'Collaborate Using Project Server' and " _ 
         & "specify a valid URL in the Options dialog box " _ 
         & "(Tools menu)." 
      Application.OptionsWorkgroup 
   Else 
      ActiveProject.MakeServerURLTrusted 
      ViewApply Name:="Resource Sheet" 
      Application.AddResourcesFromProjectServer 
   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.