With Workbook.Sheets[1] do begin
if Shapes.Count > 0 then begin
With Shapes[1] do begin
Line.Style := msoLineSingle;
Line.DashStyle := msoLineDash;
Line.Weight := 2;
Line.Visible := true;
Line.ForeColor.RGB := $00A000;
end;
end;
end;