共用方式為

Task.PathSuccessor 屬性 (專案)

當在任務路徑下拉選單中選取後繼項目時，會獲得一個值，表示該任務是否為所選任務的後繼項目。 唯讀的 Boolean。

語法

expression。 PathSuccessor

詞 一個代表 任務 物件的變數。

註解

Task.PathSuccessor 屬性與任務路徑下拉選單中的 FORMAT 標籤中，在色帶上的 GANTT CHART TOOLS 中的 Successors 項目相關。 任務路徑主要是專案客戶端中的格式功能，甘特圖中的任務顏色取決於當前任務選擇及指定任務與選擇的關係。 在圖 1 中，任務路徑下拉選單中選取了驅動前驅與驅動繼任項目。 當你選擇 T3 時，甘特圖顯示 T1 是驅動前置任務，T4 是驅動後繼任務。

圖 1： Using the task path properties to highlight tasks

利用任務路徑屬性來標示任務 PathSuccessor 屬性並不像使用者介面中的 Successors 選擇。 相反地，當以下兩個條件皆為真時， PathSuccessor 屬性為 True ： () 該任務是所選任務的後繼，且 (b) Succeedors 項目在 任務路徑中被選取。 你可以手動選擇任務，或使用 VBA 來選擇任務，然後用 VBA 檢查另一個任務是否是所選任務的後繼。 例如，如果你像圖 1 中選擇第三個任務，且在任務路徑中選擇後繼項目，以下陳述會在 VBE 的即時視窗中列印 True。

? ActiveProject.Tasks(4).PathSuccessor

然而，若未選擇 後繼 項目，前述陳述會列印 False。 專案沒有 VBA 方法可以設定 任務路徑 下拉選單中的項目。

範例

TestTaskPath 巨集會選擇專案中的每個任務，然後依序使用四個任務路徑屬性來顯示其他任務與所選任務的關聯。

Option Explicit

Sub TestTaskPath()
    Dim t As Task
    Dim chkTsk As Task
    Dim selectedTaskId As Integer
    
    For Each t In ActiveProject.Tasks
        selectedTaskId = t.ID
        Application.SelectRow Row:=selectedTaskId, RowRelative:=False
            
        If Not (ActiveSelection.Tasks Is Nothing) Then
            Debug.Print
            
            With ActiveSelection.Tasks(1)
                Debug.Print "Selected task ID " & .UniqueID & ", name: " & .Name
            End With
                        
            For Each chkTsk In ActiveProject.Tasks
                If Not (chkTsk.ID = selectedTaskId) Then
                    If chkTsk.PathPredecessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathPredecessor"
                    End If
                    If chkTsk.PathDrivingPredecessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathDrivingPredecessor"
                    End If
                    If chkTsk.PathSuccessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathSuccessor"
                    End If
                    If chkTsk.PathDrivenSuccessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathDrivenSuccessor"
                    End If
                End If
            Next chkTsk
        End If
    Next t
End Sub

對於圖 1 中的專案，若任務路徑中選取了前任項目、驅動前任項目、後繼項目及驅動後繼項目，測試任務路徑巨集輸出如下：

Selected task ID 1, name: T1
    T2: PathSuccessor
    T2: PathDrivenSuccessor
    T3: PathSuccessor
    T3: PathDrivenSuccessor
    T4: PathSuccessor
    T4: PathDrivenSuccessor

Selected task ID 2, name: T2
    T1: PathPredecessor
    T1: PathDrivingPredecessor

Selected task ID 3, name: T3
    T1: PathPredecessor
    T1: PathDrivingPredecessor
    T4: PathSuccessor
    T4: PathDrivenSuccessor

Selected task ID 4, name: T4
    T1: PathPredecessor
    T1: PathDrivingPredecessor
    T3: PathPredecessor
    T3: PathDrivingPredecessor

屬性值

VARIANT

另請參閱

Task 物件

PathDriving前身屬性PathPredecessor 屬性PathDriven後繼屬性

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • Last updated on