Application.LinkTasksEdit メソッド (Project)

タスクの依存関係 (タスクのリンク) をを編集します。

構文

式。 LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
From	必須	長整数型 (Long)	長い 。 先行タスクの id 番号。
To	必須	長整数型 (Long)	長い 。 後続タスクの id 番号。
Delete	省略可能	ブール型 (Boolean)	True プロジェクトが参照しているリンクを削除した場合。 既定値は、 false を指定 します。
Type	省略可能	長整数型 (Long)	リンクを設定するタスク間の依存関係を指定します。 使用できる定数は、PjTaskLinkType クラスの定数のいずれかです。 既定値は、 pjFinishToStart です。
Lag	省略可能	バリアント型 (Variant)	リンクを設定したタスク間の間隔を既定の単位で指定します。 タスク間にリード タイムを指定するには、負の値を指定します。
PredecessorProjectName	省略可能	String	引数 From に指定したタスクを含む統合プロジェクト内のサブプロジェクトの名前。 PredecessorProjectName を省略すると、現在のプロジェクトと見なされます。
SuccessorProjectName	省略可能	String	引数 を 指定したタスクを含む統合プロジェクト内のサブプロジェクトの名前。 SuccessorProjectName を省略すると、現在のプロジェクトと見なされます。

戻り値

ブール型 (Boolean)

例

次の例では、タスク識別番号の範囲をユーザーに求め、終了から開始までの範囲内のタスクをリンクします。 この例では、ID 範囲が有効であると仮定し、重複するタスク、null タスク、統合プロジェクトなどが存在しないことを前提としています。

Sub LinkFinishToStart() 
 
    Dim FirstID As String ' The ID number of the first task 
    Dim LastID As String ' The ID number of the last task 
    Dim NextID As Long ' The ID number of the next task to link 
 
    FirstID = InputBox$("Enter the ID number of the first task to link:") 
    If FirstID = Empty Then Exit Sub 

    LastID = InputBox$("Enter the ID number of the last task to link:") 
    If LastID = Empty Then Exit Sub 
 
    ' Convert FirstID from String to Long, then "seed" the loop. 
    NextID = CLng(FirstID) 
 
    Do Until NextID = CLng(LastID) 
        LinkTasksEdit From:=NextID, To:=NextID + 1, Type:=pjFinishToStart 
        NextID = NextID + 1 
    Loop 
End Sub

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

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