I've been trying to create parallel arches (similar to railroad tracks around a bend). Its very easy to create the outer arch with
Public Sub CreateQuarterCircle(Xpt As Double, Ypt As Double, w As Double, h As Double, Dir As String, Optional nm As String) Dim ws As Worksheet, sh As sHape, rt As Integer If Dir = "Left" Then Xpt = Xpt + w rt = -90 Else rt = 0 End If Set ws = Sheets("worksheet") ws.Shapes.AddShape(msoShapeArc, Xpt, Ypt, w, h).Name = nm Set sh = ws.Shapes(nm) With sh .Fill.Visible = False .Line.Weight = 1 .Rotation = rt End With End Sub
My problem is creating the inner arch to run parallel with the outer arch. I've tried increasing the y point by the (arch Spacing) as well as reducing the xpoint by the same as well as subtracting the (arch spacing) from the width and height. I can't seem to get the arches to run parallel. They always get wider or shorter at the top or bottom.
Anyone have any ideas why. I must just not be getting how the syntax works for these shape types. Or where the arch is actually originating from. I assume that the arch is created by using 1/4 of a complete circle, but even reducing the width and height doesn't get the arches to run parallel.