Set Logarithmic Example

Public Sub TestLogarithmic()

'Set objMilestones = GetObject("c:\testfolder\TestVertLinkOverrides.mlj", "Milestones")

Set objMilestones = CreateObject("Milestones")

With objMilestones

    .Activate

    '.setdebugmode "on"

    .use20columns

    .allcolorsarergb

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

    .SetLogarithmicMonth ("2/2/2014")

    .SetLogarithmicMonth ("7/2/2014")

    .SetLogarithmicMonth ("6/2/2014")

    .SetLogarithmicExpansionFactor (4)

    .SetLogarithmicExpandMonthNames (0)

    .SetLogarithmicBlankDateHeading (0)

    .SetLogarithmicView (1)

    .Refresh

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

   .ClearLogarithmicMonth ("6/2/2014")

    .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/2014")

    .Refresh

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

   .SetLogarithmicView (0)

   .Refresh

    MsgBox "log log view should be off"

   .Refresh

    '.Close

End With

   

Exit Sub

  

End Sub