Set Logarithmic Example

 

With objMilestones

    .Activate

    '.setdebugmode "on"

    .use20columns

    .allcolorsarergb

    .SetStartAndEndDates "1/1/2024", "12/31/2024" 

    .SetLogarithmicMonth ("2/2/2024")

    .SetLogarithmicMonth ("12/2/2024")

    .SetLogarithmicExpansionFactor (4)

    .SetLogarithmicExpandMonthNames (0)

    .SetLogarithmicBlankDateHeading (0)

    .SetLogarithmicView (1)

    .Refresh

    MsgBox "log setup complete, now clear a month (june)"

   .ClearLogarithmicMonth ("6/2/2024")

    .Refresh

    MsgBox "june should be gone, now clear all months"

   .ClearLogarithmicMonth ("all")

   .Refresh

    MsgBox "all months should be clear, add july back in"

   .SetLogarithmicMonth("7/2/2024")

    .Refresh

    MsgBox "july should be back in, now switch to normal view"

   .SetLogarithmicMonth(0)

   .Refresh

    MsgBox "log log view should be off"

   .Refresh

    '.Close

End With