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