Excel VisualBasic Script

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