Application.ManageSiteColumns 方法 (Project)
将显示 管理域对话框中,使同步内置域和自定义字段的本地项目中使用SharePoint 2013任务列表中的指定列。
语法
expression。 ManageSiteColumns
表达 返回 Application 对象的表达式。
返回值
Boolean
说明
ManageSiteColumns 方法是仅在项目的专业人员,使用已保存到 SharePoint 任务列表的本地项目中可用。 有关详细信息,请参阅 SynchronizeWithSite 方法。
下表显示了 "管理域" 对话框中的列和默认的已同步域。 默认情况下, "优先级" 和 "任务状态" SharePoint 列不与任何 Project 域同步,因此这些项为空。
同步 | 项目域 | SharePoint 列 |
---|---|---|
是 | 名称 | 标题 |
是 | 入门 | 开始日期 |
是 | 完成时间 | 截止日期 |
是 | 完成率 | 完成率 |
是 | 资源名称 | 分配对象 |
是 | 前置任务 | 前置任务 |
否 | 优先级 | |
否 | 任务状态 |
示例
若要在“项目字段”列中添加 “优先级 ”字段并与 SharePoint 中的 “优先级” 列同步,请尝试以下操作:
- 重命名文本自定义字段中的项目;例如,命名为 文本 1 为 SharePoint 优先级。
- 运行 ManageSiteColumns 的方法,然后在 管理域对话框中,在 SharePoint 列对应于 优先级项目字段下拉列表中选择 SharePoint 优先级 (文本 1) 。
- 运行 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。