VBA Project Bar Format

Zeichner · #1 07-15-2019, 12:12 AM

Hi everyone

I would like to access the collection processes in MS Project with VBA to format them.
Is this possible without the column "collection process" visible?
I only worked with:

SelectRange row: = i + 1, Column: = 2, RowRelative: = False

I refer to the column where the column is currently containing the information I need, but how can I access the control if I do not want the column visible?
My complete code is to color the bars based on specific values (task names).
Now I would like to additionally find all collections and change the bar type, but I do not want to see the "Summary" column in the program.
How can I access these values?

Code:

Sub BalkenFärben()

    Dim Inhalt, InhaltNeu, Trennzeichen, Trennzeichen2 As String
    Dim i, Werte As Integer
    Dim ArrDaten(0 To 10, 0 To 10) As Double
    Dim Sammelvorgang As Boolean
    
    
    Trennzeichen = "_"


    'Von - Bis Spalten
    For i = 0 To 40
    
        'definiere Zeile mit schleife
        SelectRange row:=i + 1, Column:=2, RowRelative:=False
        Inhalt = ActiveCell
        
        'If IsEmpty(ActiveCell.row) = True Then End
        'letzte zeile finden????
        
        'Wenn Zelle leer dann nächster schritt in Schleife
        If Inhalt = "" Then
        
        'Wenn Zelle nicht leer dann:
        Else
            Inhalt = Split(Inhalt, Trennzeichen)(0)
              
                ArrDaten(0, 0) = 111#: ArrDaten(0, 1) = 5855577
                ArrDaten(1, 0) = 112#: ArrDaten(1, 1) = 5855577
                ArrDaten(2, 0) = 113#: ArrDaten(2, 1) = 5855577
                ArrDaten(3, 0) = 114#: ArrDaten(3, 1) = 5855577
                ArrDaten(4, 0) = 114.1: ArrDaten(4, 1) = 5855577
                ArrDaten(5, 0) = 115#: ArrDaten(5, 1) = 5855577
                ArrDaten(6, 0) = 116#: ArrDaten(6, 1) = 5855577
                ArrDaten(7, 0) = 171#: ArrDaten(7, 1) = 9279917
                ArrDaten(8, 0) = 172#: ArrDaten(8, 1) = 8498133
                ArrDaten(9, 0) = 173#: ArrDaten(9, 1) = 8498133
                ArrDaten(10, 0) = 174#: ArrDaten(10, 1) = 8498133
                
    
                For Werte = 0 To 10
                    If ArrDaten(Werte, 0) = Inhalt Then
                    
                    
                        GanttBarFormatEx MiddleShape:=1, MiddlePattern:=1, MiddleColor:=ArrDaten(Werte, 1), StartColor:=ArrDaten(Werte, 1), EndColor:=ArrDaten(Werte, 1)
                        GanttBarFormat lefttext:="Anfang"
                        GanttBarFormat righttext:="Name"
                     
                    End If
                Next Werte
            End If
            
    Next i
    
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MS project - appointment tracking with conditional format	cyan2	Project	0	03-14-2019 01:56 AM
How to modify the Gantt chart bar styles (label of values) in project center (WPA) (MS Project 2010)	Cedahlia	Project	0	04-21-2018 10:29 PM
Is it a bug or not ? Ms Project randomly changes project's tasks resources name when re-open file ?	capsule	Project	1	11-26-2017 06:45 AM
Project task numbering changed after linking item in subproject to m aster project	rrs_2017	Project	0	09-06-2017 06:07 AM
Microsoft Project Server, Microsoft Project Online and Project Web App - Whats the difference?	chocolateCupcakes	Project	1	02-11-2017 12:25 PM