Assignment.Flag15 属性 (Project)

如此 如果与 工作分配 相关联的标记设置。 读/写 Variant。

语法

expression。 Flag15

表达 一个代表 Assignment 对象的变量。

示例

下面的示例删除了 标志 1 设置为 True 的所有任务。

Sub DeleteNonEssentialTasks() 
 
  Dim T As Task ' Task object used in For Each loop 
 
  ' Delete nonessential tasks in the active project. 
  For Each T In ActiveProject.Tasks 
    If Not (T Is Nothing) Then 
      If T.Flag1 = True Then T.Delete 
    End If 
  Next T
End Sub

支持和反馈

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