Thisworkbook.Sheets("sheetname").Shapes("shape1").TextFrame.Characters.Font.ColorIndex = 1
Thisworkbook.Sheets("sheetname").Shapes("shape1").Fill.ForeColor.RGB = RGB(255, 255, 255)
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts