Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Adds a line around the title and adds a glow around that line

Sub AddGlowToTitle()     Dim myChart As Chart     Set myChart = ActiveChart     myChart.ChartTitle.Format.Line.ForeColor.RGB = RGB(255, 255, 255)     myChart.ChartTitle.Format.Line.DashStyle = msoLineSolid     myChart.ChartTitle.Format.Glow.Color.ObjectThemeColor = msoThemeColorAccent6     myChart.ChartTitle.Format.Glow.Radius = 8 End Sub