虚线在Powerpoint中显示为形状

Question

    Set shp = aslide.Shapes.AddShape(Type:=msoShapeRectangle, Left:=24, Top:=50, Width:=672, Height:=26.6)
    shp.Name = "First Shape"
    shp.Line.Visible = msoFalse
    shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
    shp.TextFrame.TextRange.Font.Color.RGB = RGB(0, 102, 204)
    shp.TextFrame.TextRange.Characters.Text = "Title "
    shp.TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignLeft
    shp.TextFrame2.VerticalAnchor = msoAnchorMiddle
    shp.TextFrame2.TextRange.Font.Size = 18
    shp.TextFrame2.TextRange.Font.Name = "Arial"

aslide是Activeslide。我得到的问题是，即使我已明确将线条可见性设置为False，文本框下方也会出现虚线。请指教。提前谢谢。