Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Отображает диалоговое окно Управление полями , которое позволяет синхронизировать встроенные поля и настраиваемые поля в локальном проекте с указанными столбцами в списке задач SharePoint 2013.
Синтаксис
выражение. ManageSiteColumns
выражение Выражение, возвращающее объект Application .
Возвращаемое значение
Boolean
Примечания
Метод ManageSiteColumns доступен только в Project профессиональный с локальным проектом, сохраненным в списке задач SharePoint. Дополнительные сведения см. в статье Метод SynchronizeWithSite .
В следующей таблице показаны столбцы и синхронизированные поля по умолчанию в диалоговом окне Управление полями . По умолчанию столбцы SharePoint Priority и Task Status не синхронизированы ни с одним полем Project, поэтому эти элементы пусты.
| Синхронизация | Поле проекта | Столбец SharePoint |
|---|---|---|
| Да | Имя | Название |
| Да | Начало | Дата начала |
| Да | Готово | Срок |
| Да | Завершено, % | Завершено, % |
| Да | Имена ресурсов | Назначено |
| Да | Predecessors | Predecessors |
| Нет | Priority | |
| Нет | Состояние задачи |
Пример
Чтобы добавить поле Приоритет в столбец Поле проекта и выполнить синхронизацию со столбцом Priority в SharePoint, попробуйте выполнить следующие действия:
- Переименование настраиваемого поля текста в Project; например, назовите Text1 в качестве приоритета SharePoint.
- Запустите метод ManageSiteColumns , а затем в диалоговом окне Управление полями выберите Приоритет SharePoint (Текст1) в раскрывающемся списке Поле проекта , который соответствует приоритету в столбце SharePoint.
- Запустите макрос 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.