投稿時間：2005/05/20(Fri) 16:58
投稿者名：KOHJI
Ｅメール：
ＵＲＬ ：
タイトル：EXCELグラフコントロール
教えてください。下記の例のようにＶＢからＥＸＣＥＬのグラフを作成しています。
最終タスクマネージャのプロセスが残ります。
残らないようにする方法教えてください。
例）
Public Sub Command1_Click()
Dim LAP_XLS As New Excel.Application 'Excel オブジェクト
Dim LST_XLS As New Excel.Worksheet
Dim LO_CHRT As New Excel.Chart
Set LAP_XLS = CreateObject("Excel.Application")
LAP_XLS.Workbooks.Open "C:\AAA.XLS"
Set LO_CHRT = LAP_XLS.Sheets("Sheet1").ChartObjects(1).Chart
With LO_CHRT
.SetSourceData Range("A2", Range("C65536").End(xlUp))
'''グラフの項目軸ラベルセット
.SeriesCollection(1).XValues = Range("A2", Range("A65536").End
(xlUp))
End With
LAP_XLS.ActiveWorkbook.Save
LAP_XLS.Workbooks.Close
LAP_XLS.Quit
Set LO_CHRT = Nothing
Set LAP_XLS = Nothing
End Sub
|