タイトル : Excel ComObjectの解放 投稿日 : 2014/10/28(Tue) 19:01 投稿者 : tera
環境:VB2010,Excel2010,Windows7 32bit VB2010でExcelファイル内にある グラフ目盛りの書き換えを行っています。 プログラムは完成し動作も問題ないのですが COMオブジェクトが解放されません。 Dim xlSheet_g As Excel.Worksheet Dim xlCharts As Excel.ChartObjects Dim xlChart As Excel.ChartObject Dim xlChart1 As Excel.Chart xlSheet_g = DirectCast(xlSheets("グラフ"), Excel.Worksheet) xlCharts = DirectCast(xlSheet_g.ChartObjects, Excel.ChartObjects) xlChart = DirectCast(xlCharts(0), Excel.ChartObject) '-------@ xlChart1 = xlChart.Chart With xlChart1 '目盛りの設定 Dim xlAxes As Excel.Axes Dim xlAxis As Excel.Axis xlAxes = DirectCast(xlChart1.Axes, Excel.Axes) xlAxis = xlAxes.Item(Excel.XlAxisType.xlValue, Excel.XlAxisGroup.xlSecondary) With xlAxis '目盛りの最大値 .MaximumScale = 65 End With MRComObject(xlAxis) MRComObject(xlAxes) End With MRComObject(xlChart1) MRComObject(xlChart) MRComObject(xlCharts) MRComObject(xlSheet_g) プログラムをコメントにしていき、@の部分で何か解放忘れを しているのではないかと思っています。 何を解放し忘れているのでしょうか? よろしくお願いします。 |