Как изменить данные в MS Project

Question

Есть ли способ изменить продолжительность проекта с помощью vb.net? Я попытался записать макрос, но как только я его запустил, он не делает то, что я делал во время записи. он выбирает другую строку/col. а также я заметил, что строка имеет отрицательные значения, здесь я включаю макрос.

Sub Macro3() 
    SelectTaskField Row:=-3, Column:="Actual Start" 
    SelectTaskField Row:=4, Column:="Actual Duration" 
    SelectTaskField Row:=5, Column:="Actual Duration" 
    SelectTaskField Row:=-3, Column:="Start" 
    SelectTaskField Row:=-2, Column:="Finish" 
    SelectTaskField Row:=1, Column:="Name" 
    SelectTaskField Row:=-3, Column:="Actual Start" 
    SelectTaskField Row:=-4, Column:="Actual Start" 
    SelectTaskField Row:=4, Column:="Actual Start", Height:=1 
    SelectTaskField Row:=5, Column:="Actual Start", Height:=1 
    SelectTaskField Row:=3, Column:="Actual Start" 
    SelectTaskField Row:=-3, Column:="Duration" 
    SelectTaskField Row:=-4, Column:="Actual Start" 
    SelectTaskField Row:=-3, Column:="Duration" 
End Sub 

Спасибо!

Answer 1

Мне удалось изменить продолжительность с помощью макроса, но есть ли способ, которым это можно сделать быстрее? Я читаю каждую задачу, но есть ли способ увеличить время на 2 быстрее?

Public Sub toggleMissingBaseline() 
    On Error GoTo ErrorHandler 

    Dim tsks As Tasks 
    Dim t As Task 
    Dim rgbColor As Long 

    Set tsks = ActiveProject.Tasks 
    OutlineShowSubTasks 
    For Each t In tsks 
    OutlineShowSubTasks 
    SelectTaskField Row:=t.ID, Column:="Duration", RowRelative:=False 
    If (Not t Is Nothing) And (Not t.Summary) Then 
     t.Duration = t.Duration * 2 
    End If 
    Next t 
End Sub