Task.LinkSuccessors メソッド (Project)

タスクに 1 つ以上の後続タスクを追加します。

構文

式。 LinkSuccessors( _Tasks_, _Link_, _Lag_ )

式Task オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
タスク	必須	オブジェクト型 (Object)	指定された タスク または タスク オブジェクトでは、 式 で指定されたタスクの後続タスクになります。
Link	省略可能	長整数型 (Long)	リンクを設定するタスク間の関係を示す定数を指定します。 使用できる定数は、PjTaskLinkType クラスの定数のいずれかです。 既定値は、 pjFinishToStart です。
Lag	省略可能	バリアント型 (Variant)	リンクされたタスク間のラグ タイムの期間を指定する文字列です。 タスク間にリード タイムを指定するには、 Lag に負の値として評価される式を使用します。

戻り値

なし

例

次の使用例は、2 つのタスクを作成し、2 つ目のタスクを 1 つ目のタスクの後続タスクとしてリンクします。

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。