Compartilhar via

Método Application.ManageSiteColumns (Project)

  • Artigo

Exibe a caixa de diálogo Gerenciar campos, que permite sincronizar campos internos e campos personalizados em um projeto local com colunas especificadas em uma lista de tarefas SharePoint 2013.

Sintaxe

expression. ManageSiteColumns

Expressão Uma expressão que retorna um objeto Application .

Valor de retorno

Boolean

Comentários

O método ManageSiteColumns está disponível somente no Project Professional, com um projeto local que foi salva em uma lista de tarefas do SharePoint. Para obter mais informações, consulte o método SynchronizeWithSite.

A tabela a seguir mostra as colunas e os campos sincronizados padrão da caixa de diálogo Gerenciar Campos. Por padrão, as colunas do SharePoint Prioridade e Status da Tarefa não estão sincronizadas com nenhum campo do Project, portanto, esses itens estão vazios.

Sincronizar Campo do Project Coluna do SharePoint
Sim Name Título
Sim Início Data de Início
Sim Concluir Data de Conclusão
Sim % Concluída % Concluída
Sim Nomes de Recurso Atribuído a
Sim Predecessoras Predecessoras
Não Prioridade
Não Status da Tarefa

Exemplo

Para adicionar o campo Prioridade na coluna Campo do Projeto e sincronizar com a coluna Prioridade no SharePoint, experimente o seguinte:

  1. Renomear um campo personalizado de texto no projeto; Por exemplo, nomeie Texto1 como Prioridade do SharePoint.
  2. Execute o método ManageSiteColumns e, na caixa de diálogo Gerenciar campos, selecione A prioridade do SharePoint (Texto1) na lista suspensa Campo do Project correspondente a prioridade na coluna do SharePoint.
  3. Execute a 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

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.