Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Adds a light blue shadow to the box surrounding a legend

Sub FormatShadow()     Dim myChart As Chart     Set myChart = ActiveChart     With myChart.Legend.Format.Shadow         .ForeColor.RGB = RGB(0, 0, 128)         .OffsetX = 5         .OffsetY = -3         .Transparency = 0.5         .Visible = True     End With End Sub