Método Application.ManageSiteColumns (Project)

Muestra el cuadro de diálogo Administrar campos, que permite sincronizar campos integrados y los campos personalizados en un proyecto local con columnas especificadas en una lista de tareas de SharePoint 2013.

Sintaxis

expresión. ManageSiteColumns

Expresión Expresión que devuelve un objeto Application .

Valor devuelto

Boolean

Comentarios

El método ManageSiteColumns está disponible únicamente en Project Professional, con un proyecto local que se ha guardado en una lista de tareas de SharePoint. Para obtener más información, vea el método SynchronizeWithSite.

La tabla siguiente muestra las columnas y los campos sincronizados predeterminados del cuadro de diálogo Administrar campos. De forma predeterminada, las columnas Prioridad y Estado de la tarea de SharePoint no están sincronizadas con ningún campo de Project, por lo cual esos elementos están vacíos.

Sincronizar	Campo de Project	Columna de SharePoint
Sí	Name	Cargo
Sí	Inicio	Fecha de inicio
Sí	Finalización	Vencimiento
Sí	% completado	% completado
Sí	Nombres de los recursos	Asignado a
Sí	Predecesoras	Predecesoras
No		Prioridad
No		Estado de la tarea

Ejemplo:

Para agregar el campo Prioridad en la columna Campo de proyecto y sincronizar con la columna Prioridad en SharePoint, pruebe lo siguiente:

1. Cambiar el nombre de un campo personalizado de texto de proyecto; Por ejemplo, el nombre Texto1 como Prioridad de SharePoint.
2. Ejecutar el método ManageSiteColumns y, a continuación, en el cuadro de diálogo Administrar campos, seleccione La prioridad de SharePoint (Texto1) en la lista desplegable Campo de proyecto que corresponde a la prioridad en la columna de SharePoint.
3. Ejecutar la macro SyncPriority.

Sub SyncPriority() 
    Dim tsk As Task 
    Dim msfPriority As String 
 
    Application.SynchronizeWithSite 
 
    For Each tsk In ActiveProject.Tasks 
        msfPriority = tsk.Text1 
 
        Select Case msfPriority 
            Case "(1) High" 
               tsk.Priority = 700 
           Case "(2) Normal" 
               tsk.Priority = 500 
           Case "(3) Low" 
               tsk.Priority = 300 
        End Select 
    Next tsk 
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.