So phase II was cleaning up the woodchips and slickify the execution and appearance... which IMNSHO has turned out to produce the cleanest charts, so far, such as http://bit.ly/WCGART and http://bit.ly/WCGCPY (The CPU reference will be phased out again, and Runtime put in place... the app.plan impact)

Thanks to some dirty VBA code [below], the color coded tables are always ranked from biggest to smallest, and in the referred example, showing where each science compares to the global averages... above/below/on the median... and 'on the go' applied some "Gestalt Law of Continuity" to the chart features... playing with your brain, and much more to come on that ;P

Next up, all the project labels text/numbers, like on the dashboard, will print red text when there's a record and blue when there's a milestone (if you had not already remembered that ;>). Will keep me busy for another week to figure that out and then clean up again for that 10 second wiz experience (on my side)... then when all is re-concatenated in a script... vacation.

--//--

A 10 minute chore reduced to a 10 seconds wiz.... just Ctrl-Shft-S and no time to fetch another cup of brew (Mokarabia).

Sub GlbSort()
'
' Sort Macro for Global Chart Tables
' Declare Variables
    Dim glbchrt As String
'
    Application.ScreenUpdating = False
    Worksheets("Charts II").Calculate
    Application.Goto Reference:="PicTab.TPDx1"
    Range("PictureTable").Select
    ' Set Do loop to stop on first empty range cell.
    Do While Not IsEmpty(ActiveCell) = True
        glbchrt = ActiveCell.Offset(0, 0).Value
        ActiveWorkbook.Worksheets("Charts II").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Charts II").Sort.SortFields.Add Key:=Range("PicTab." & glbchrt & "x1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("Charts II").Sort
                .SetRange Range("PicTab." & glbchrt & "Rnk")
                .Header = xlYes
                .MatchCase = True
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
' Go down 1 row from last location.
ActiveCell.Offset(1, 0).Select
Loop
    Worksheets("Charts II").Calculate
    Application.ScreenUpdating = True
    Application.Goto Reference:="PicTab.TPDx1"
End Sub

P.S. The *blue* stacked area charts are going to loose the bevel appearance. Sorry to those who just acquired a 3D display, but this is how it might all be looking across the board http://bit.ly/WCGTFL

P.P.S. Anyone notice the yellow blip in the WCGCPY chart? Need 1 or 2 more of those to make it to sapphire for that science

You are an artist, Seke. Thanks.

Seems to fill a need to 'see' [those pesky days left mostly] :

14,000 are direct referral from the WCG forums and 10,000 from elsewhere links that sites and members maintain... and this is using the bit,ly shorts only. 60 to 90 thousand views monthly per my 'bucket' stats, the dark days of February showing most.

Crunch On

--//--

LOOK'S BLURRED TO ME ON 3 W7 64BIT OS's ALL USING IE9. Then again dosen't bother me; fore I only use the dashboard table.

1) Can see in FF 13 & 13.0.1 | cannot see in IE 8 & 9
2) In both FF & IE CEP2 + GFAM + CFCW have a ring of light fuzzy color around them (like eclipse of sun effect)
3) 2FPS looks about right to me
4) All parts updating in frame