Compartir a través de

Método Application.AddResourcesFromProjectServer (Project)

  • Artículo

Abre el cuadro de diálogo Compilar equipo si está conectado a Project Server y se encuentra actualmente en una vista de recursos.

Sintaxis

expresión. AddResourcesFromProjectServer

expresión Variable que representa un objeto Application.

Valor devuelto

Booleano

Comentarios

El método AddResourcesFromProjectServer sólo está disponible en las vistas de recursos y devuelve un error capturable (código de error 1100) cuando se aplica en una vista de recursos no.

Ejemplo:

En el siguiente ejemplo se muestra el cuadro de diálogo Generar equipo desde Project Server. En primer lugar, Project agrega la dirección URL especificada en Opciones de colaboración (menú Colaborar) a la lista de sitios de confianza de Microsoft Internet Explorer. Tras la confirmación, Project cambia a una vista Hoja de recursos y muestra el cuadro de diálogo Compilar equipo desde Project Server , si está conectado a Mi equipo en modo de grupo de trabajo. Project muestra el cuadro de diálogo Build Team from Project Name (Compilar equipo a partir del nombre del proyecto) cuando se conecta a 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.