MS-PROJECT 如何正确应用 Application.AddNewColumn 方法？

Question

我想在我的代码开始时使列（摘要）可见，以便从该数据中检索并在代码末尾再次关闭它。 在我的代码中。 到目前为止，在我的代码中，必须始终显示列摘要才能使其工作，但我不想这样做。 这就是为什么我想在开头显示列并在结尾隐藏它

Sub BalkenFormatieren()

    Dim Inhalt, Trennzeichen As String
    Dim i, Werte As Integer
    Dim ArrDaten(0 To 248, 0 To 248) As Double
    Dim OriginalTaskID As Long
    Dim Tsk As Task
    Dim LastTaskRow As Long


    LastTaskRow = ActiveProject.Tasks.Count
    Trennzeichen = "_"



    'Von - Bis Spalten
    For i = 0 To LastTaskRow - 1

        'definiere Zeile mit schleife
        SelectTaskField Row:=i + 1, Column:="Summary", RowRelative:=False
        Inhalt = ActiveCell

        'Wenn Zelle = Ja dann Fromatieren
        If Inhalt = "Yes" Then
            GanttBarFormatEx MiddleShape:=5, righttext:="text29"
        End If

    Next i
End Sub

Answer 1

要向甘特图表添加或删除列，请使用TableEditEx 方法，如此 SO 帖子中所示：How to add a new column in Microsoft Project... 和 How to Add Column...to MS Project。

---

但是有更好的方法来获取任务的属性。

您无需添加列即可获取活动任务的属性。使用ActiveCell 的Task 属性。

For i = 0 To LastTaskRow - 1

    SelectRow Row:=i + 1, RowRelative:=False

    If ActiveCell.Task.Summary Then
        GanttBarFormatEx MiddleShape:=5, righttext:="text29"
    End If

Next i

请注意，这使用了SelectRow 方法，该方法有一个名为RowRelative 的参数。像这样循环所有任务时，最好将该参数设置为False，并将Row 参数设置为您想要的绝对位置；否则RowRelative 默认为True 并且选择位置向前移动从当前选择，而不是第一个任务。