Dim xlSC As Microsoft.Office.Interop.Excel.Series Dim Border As Microsoft.Office.Interop.Excel.Border Dim Weight As Microsoft.Office.Interop.Excel.XlBorderWeight xlSC = .SeriesCollection(2) Border = xlSC.Border Weight = Border.Weight Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThin MRComObject(Weight) MRComObject(Border) MRComObject(xlSC) とコードを修正したところ、エクセルが残らなくなりました。お手数をおかけいたしました。 また質問がありましたら、よろしくお願いします。 大変、ありがとうございました。