tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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)

プログラムをコメントにしていき、①の部分で何か解放忘れを
しているのではないかと思っています。

何を解放し忘れているのでしょうか？
よろしくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。