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;