Sub FormatBorder() Dim myChart As Chart Set myChart = ActiveChart With myChart.ChartArea.Format.Line .DashStyle = msoLineLongDashDotDot .ForeColor.RGB = RGB(50, 0, 128) End With End Sub