Examples:
The following VBA example applies a custom outline style to the selected shape. The new outline appears as a small dot followed by a long dash, with equal gaps between each dash.
Sub Test()
With ActiveShape.Outline
.Width = 0.03
.Style.DashCount = 2
.Style.DashLength(1) = 1
.Style.DashLength(2) = 10
.Style.GapLength(1) = 4
.Style.GapLength(2) = 4
End With
End Sub