できると言っちゃったばっかりに、、

質問

あの、、、VBでグラフを書きますよね。それでソレをVBで表示したいんです。JPGとかイメージファイルで保存とかして何とかできませんかねー、、。表はできるのにグラフができないわけがない、なんて言ったら「お願いね」って言われちゃった、、。誰か教えてくださーい。宜しくお願いします。

回答No.7

TAGOSAKU7

サンプルです。

方法としてはＯＬＥを使用します。
ツールボックスに「ＯＬＥ」と書いたアイコンがありますよね。
あれを使用してＯＬＥをフォームの中に作成してください。マウスでＯＬＥを作成しようとすると、オブジェクトの種類をたずねてきますが、キャンセルしてしていいです。
それでオブジェクト種類が定まってないＯＬＥが作成されました。その領域にＥＸＣＥＬが埋め込まれます。

※※注意※※
エクセルにデータを落としてますよね？
　　xlApp.Workbooks(1).Sheets(1).Cells(1,1).Value = "データ"
って感じですよね？それで、そのエクセルブックを保存する前に
　　xlApp.Charts(1).Activate
という感じで、グラフのシートを選択した状態にしてから保存してください。

creBitMap関数は、以前の書き込みを参考にしてください。

Option Explicit

'ブック名を宣言してますが、任意に変更してください
Private Const EX_BOOK_NAME = "C:\Test.xls"

'これはエクセル２０００であることを示します。「８」という数字の部分はバージョンによって違います。
'EXCELのバージョンがわからないので、そちらで変更してください。わからなかったらレスください。
Private Const EX_CLASS_NAME = "Excel.Sheet.8"

'ＯＬＥに埋め込む
Private Sub Command1_Click()

　　With Me.OLE1
　　　　'ファイルを埋め込みます
　　　　.CreateEmbed EX_BOOK_NAME, EX_CLASS_NAME

　　　　'ＯＬＥ更新
　　　　.Refresh
　　End With
End Sub

'ファイルとして保存
Private Sub Command2_Click()
　　Call creBitMap(Me.OLE1, "c:\test.bmp")
End Sub

Private Sub Form_Load()
　　With Me
　　　　'スケールをピクセルにする
　　　　.ScaleMode = vbPixels

　　　　'埋め込まれるEXCELは、OELのサイズによって自動調整を行う
　　　　.OLE1.SizeMode = vbOLESizeStretch
　　End With
End Sub

お礼

ありがとう、この上ないです。

補足

大変大変大変お世話になっています。教えていただいたものを悪戦苦闘して自分なりに解釈して試していたのですが、クリップボードにコピーするところまで出来上がったんですけど、ソレをJPEG、GIF、BMPかなにかに保存したいんです。未だに実現できないんです。いつまでかかってるんだーなんてことまで言われちゃうし、、。単純にOLEなどを通さずに実現ってできるものですか？？お忙しいところ申し訳ないんですけど宜しくお願いします。