VBA MS Projekt. Wie Einträge programmierbar programmierbar verschieben?

Question

Ich habe ein Problem. Ich arbeite an VBA-Makros in MS Project 2013, die automatisch die Nachschlagetabelle ausfüllen und ändern können, die mit dem lokalen benutzerdefinierten Feld im Projektprofi verknüpft ist. Ich habe diese Codeabschnitte auf VBA für:

-Hinzufügen Einträge

Set objStateEntry = objOutlineCode.LookupTable.AddChild(entryName) 

-Ändern descrption von Einträgen

objStateEntry.Description = "some description" 

, Wechsel Niveau entires

objStateEntry.level = entryLevel 

Aber ich kann finde nicht, wie man Einträge in der Nachschlagetabelle programmatisch nach oben/unten verschiebt. Mit anderen Worten, ich muss programmierte Schaltflächen in the screenshot verwenden. Bitte hilf mir. Vielen Dank!

Answer 1

versuchen, etwas wie folgt aus:

Private Sub SpinButton1_SpinDown() 
On Error Resume Next 
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub 
With Me.ListBox1 
    .ListIndex = .ListIndex + 1 
End With 
End Sub 


Private Sub SpinButton1_SpinUp() 
On Error Resume Next 
If ListBox1.ListIndex = 0 Then Exit Sub 
    With Me.ListBox1 
     .ListIndex = .ListIndex - 1 
    End With 
End Sub 

goodluck