VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/22(Tue) 09:59 |
| 投稿者 | ： miya |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: エクセルのグラフをＶＢで表示 |
> # コードをせっかく投稿して頂くなら事象が再現できるコードを投稿して頂くと
> もう少し皆さんから回答が得られるかも知れません
すいません。勝手がわからなくて・・・。
再現コード書きますね。
１．新規フォームに、コマンドボタンを２つ、ピクチャーボックスを１つ貼り付ける。
２．下記コードを書く。
Option Explicit
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim filePath As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test1.xls")
Set xlSheet = xlBook.Worksheets("sheet1")
filePath = App.Path & "testgif.gif"
xlSheet.ChartObjects("グラフ 1").Chart.Export filePath, "GIF", True
Picture1.Picture = LoadPicture(filePath)
End Sub
Private Sub Command2_Click()
xlBook.Close SaveChanges:=False
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Unload Me
End Sub
３．新規エクセルシート test1.xls を作成し、グラフウィザードで
グラフを貼り付ける。
４．エクセルシートのセルにデータを入力する（例：A1＝1、B1=2、C1=3、D1=4、E1=5）
５．グラフを右クリックし、"元のデータ" を選択し、
"データ範囲" に =Sheet1!$A$1:$E$1 を入力し、保存。
６．ＶＢを実行し、ボタン１でエクセルのグラフを取得し
（このときのプログレスバーを見えなくしたい）、
ボタン２で終了します。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）