Resource.Flag14 属性 (Project)
如此 如果与 资源 关联的标记设置。 读/写 Variant。
语法
expression。 Flag14
表达 一个代表 Resource 对象的变量。
示例
下面的示例删除了 标志 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。