How to draw and format a line?

Question

I am trying to draw a line in a PowerPoint presentation. I cannot get the desired combinations of colour, weight, zorder and to name it.

I have two ways to draw a line.

The first:

Set oLine = MyDocument.Shapes.AddLine(MyShape.Left + MyShape.Width, MyShape.Top + (MyShape.Height * 0.5) - 5, MyDocument.Shapes(lineName).Left, MyDocument.Shapes(lineName).Top + (0.5 * MyDocument.Shapes(lineName).Height)).Line
            
With oLine
    .ZOrder (msoSendToBack)
    .Line.Weight = 7
    .Fill.ForeColor.RGB = RGB(0, 0, 0)
    .Name = "Line"
End With

With this only the zorder works. The colour of the line is a shade of blue (which I believe was used earlier in the PowerPoint).

The second:

With MyDocument.Shapes.AddLine(MyShape.Left + MyShape.Width, MyShape.Top + (MyShape.Height * 0.5), MyDocument.Shapes(lineName).Left, MyDocument.Shapes(lineName).Top + (0.5 * MyDocument.Shapes(lineName).Height)).Line
    .ForeColor.RGB = RGB(0, 0, 0)
    .Weight = 5
End With

This gives the desired colour and weight, but I cannot find a way to zorder the shape nor name it.

How can I achieve all of my desired combinations?

Answer 1

Lines don't use a fill, only 2D shapes.

It's easier to find errors if you break long commands (like the one starting with Set oLine) into smaller chunks until you get it working. You omitted information about the MyShape from which you're getting positions, but here is a revised version of your code that runs:

Sub FormatLine()
    Dim oLine As Shape
    Set oLine = ActivePresentation.Slides(1).Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=40, EndY:=40)
            
    With oLine
        .ZOrder (msoSendToBack)
        .Line.Weight = 7
        .Line.ForeColor.RGB = RGB(0, 0, 0)
        .Name = "Line3"
    End With
End Sub