VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/21(Mon) 13:03 |
| 投稿者 | ： miya |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： エクセルのグラフをＶＢで表示 |
エクセルのグラフをGIF形式でエクスポートし、
そのGIFファイルをＶＢのピクチャーボックスに出力します。
その際、エクスポート時にエクセルでプログレスバーを出力して
しまうのですが、それを表示しない方法を教えてください。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(パス＆ファイル名)
Set xlSheet = xlBook.Worksheets(シート名)
filePath = App.path & "test1.gif"
excelSeet.ChartObjects(グラフ名).Chart.Export filePath, "GIF", True
Picture1.Picture = LoadPicture(filePath)
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）