如何通过MS Project API在不使用剪切粘贴的情况下调整任务行位置？

可以实现，无需依赖Application.EditCut或Application.EditPaste。MS Project的Task对象提供了InsertBefore和InsertAfter方法，能直接调整任务的顺序，和UI拖拽的效果完全一致。

代码示例：将ID为4的任务移动到第10行位置 #

以下代码会把原第4行的任务移动到原第10行的位置（原第10行及之后的任务自动下移）：

Sub MoveTaskWithoutCutPaste()
    Dim srcTask As Task
    Dim targetTask As Task
    
    ' 指定要移动的源任务（ID=4）
    Set srcTask = ActiveProject.Tasks(4)
    ' 指定目标位置的参考任务：要移到第10行，需插入到原第9行任务之后
    Set targetTask = ActiveProject.Tasks(9)
    
    ' 先校验任务是否存在
    If srcTask Is Nothing Or targetTask Is Nothing Then
        MsgBox "指定的任务不存在！"
        Exit Sub
    End If
    
    ' 确保源任务与目标任务处于同一大纲层级（若层级不同先调整）
    If srcTask.OutlineLevel <> targetTask.OutlineLevel Then
        srcTask.OutlineLevel = targetTask.OutlineLevel
    End If
    
    ' 将源任务插入到目标任务之后，完成位置调整
    srcTask.InsertAfter targetTask
End Sub

关键说明 #

• InsertBefore/InsertAfter会自动处理任务的依赖关系、大纲结构，和手动拖拽的逻辑完全匹配
• 若要移动到列表最开头，可使用srcTask.InsertBefore ActiveProject.Tasks(1)；移到末尾则用srcTask.InsertAfter ActiveProject.Tasks(ActiveProject.Tasks.Count)
• 任务的ID属性是只读的，无法直接修改，但调整顺序后MS Project会自动重新编号ID（需确保启用了自动编号功能）
• 移动摘要任务时，其子任务会被一并移动，符合UI操作逻辑

内容的提问来源于stack exchange，提问作者Kenny Arnold