通过

Application.ToggleTPResourceExpand 方法 (Project)

  • 项目

在资源的同一时间段内有多个任务分配的情况下，展开或折叠"工作组计划程序"视图中的指定资源行。

语法

expression。 ToggleTPResourceExpand( _ResourceUniqueID_ )

表达 返回 Application 对象的表达式。

参数

名称 必需/可选 数据类型 说明
ResourceUniqueID 可选 Long 资源的唯一标识号。

返回值

Boolean

说明

可以通过选择 + 资源名称旁边的 或 ？ 图标来手动展开或折叠单个资源的任务列表。 要执行相同的操作的所有资源，请使用 ToggleTPAutoExpand 方法。

注意

[!注释] + 或 ? 图标不会显示在资源名称旁边是否有该资源的任何重叠作业。

ToggleTPResourceExpand 方法对应于 展开资源行复选框，在 格式选项卡下 工作组规划器工具在功能区中，但会影响指定的资源。

示例

在以下示例中，R2 资源有重叠的工作分配。 ToggleTheResourceRow 宏切换到工作组规划器视图和展开或折叠行 R2 的。 行展开后，可以很方便地查看所有重叠的工作分配。

Sub ToggleTheResourceRow() 
    Dim resourceUid As Long 
 
    ViewApplyEx Name:="Team Planner" 
 
    resourceUid = ActiveProject.Resources("R2").UniqueID 
    ToggleTPResourceExpand (resourceUid) 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。