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 のサポートおよびフィードバックを参照してください。