Replace Line with a shape (Rectangle)

[NerillaW]

Hi Everyone,

I have created an excel file with lot of lines but I want to change all the line I have into Rectangles with specific Withd and Height, and they should be inserted where the lines where. I tried the replace shape but only works with other shapes but not lines. Any VBA code I can try?

Thank you all in advance,

 

[Micron]

with specific Withd and Height,

then change 25 and 5 I guess. My sheet name was D so you need to change that as well.

Sub NerillaW()
Dim shp As Shape
Dim x As Integer, y As Integer

For Each shp In Sheets("D").Shapes
    If shp.AutoShapeType = -2 Then
        x = shp.Left
        y = shp.Top
        shp.Delete
        Shapes.AddShape msoShapeRectangle, x, y, 25, 5
    End If
Next

End Sub