Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7730 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37215】ビットマップ出力 やん 06/4/25(火) 20:41 質問[未読]
【37219】Re:ビットマップ出力 Kein 06/4/25(火) 21:27 回答[未読]
【37221】Re:ビットマップ出力 やん 06/4/25(火) 22:00 お礼[未読]
【37215】ビットマップ出力
質問  やん  - 06/4/25(火) 20:41 -
引用なし
パスワード
   エクセル上のグラフ画像をBitmapで出力したいのですが
ヘルプやサイトを検索してもなかなか見つからなくて質問させて頂きます

最近職場でVBAを扱う事になって簡単なマクロの作り方は少し理解出来て
今度はグラフ画像をBitmapにしたくて色々HELPやサイトを調べたのですが
検索方法が下手で中々うまくいきません
上記内容に近い物をサポートしてるようなサンプルプログラムか何か置いてある初心者向けのサイトなどご存知の方いらっしゃいましたら教えて頂きたいです
後、まずはBitmap出力しようと思い下記サイトの14-54の項目も今日試したのですが
うまく行きませんでした（本日試したサンプルプログラムの内容は全然理解出来てませんTT）一応今日試した限りでは指定したセルは画像化されてる様なのですが
指定したフォルダーにはファイルが出力されなくて・・・・
http://www2s.biglobe.ne.jp/~iryo/vba/VBA14c.html
長文で質問もあやふやですがお願いします。
【37219】Re:ビットマップ出力
回答  Kein  - 06/4/25(火) 21:27 -
引用なし
パスワード
   グラフはワークシートの埋め込みグラフですね ? BitMap での出力は出来ません
でしたが、Gif か Jpeg なら出来ます。
アクティブシート上のグラフオブジェクトを、全て C:\tempフォルダーへ
jpeg画像として出力するコードは

Sub MyCharts_Exp()
　 Dim Ch As ChartObject
　 Dim i As Integer
　 Const SvF As String = "C:\temp\ChDrow"
　　
　 With ActiveSheet
　　　If .ChartObjects.Count = 0 Then Exit Sub
　　　For Each Ch In .ChartObjects
　　　　 i = i + 1
　　　　 Ch.Chart.Export SvF & i & ".jpg", "Jpeg"
　　　Next
　 End With
End Sub
【37221】Re:ビットマップ出力
お礼  やん  - 06/4/25(火) 22:00 -
引用なし
パスワード
   ▼Kein さん：
>グラフはワークシートの埋め込みグラフですね ? BitMap での出力は出来ません
>でしたが、Gif か Jpeg なら出来ます。
>アクティブシート上のグラフオブジェクトを、全て C:\tempフォルダーへ
>jpeg画像として出力するコードは
>
>Sub MyCharts_Exp()
>　 Dim Ch As ChartObject
>　 Dim i As Integer
>　 Const SvF As String = "C:\temp\ChDrow"
>　　
>　 With ActiveSheet
>　　　If .ChartObjects.Count = 0 Then Exit Sub
>　　　For Each Ch In .ChartObjects
>　　　　 i = i + 1
>　　　　 Ch.Chart.Export SvF & i & ".jpg", "Jpeg"
>　　　Next
>　 End With
>End Sub
Keinさん
回答ありがとうございます
ビットマップでは出力できないんですかぁ〜TT
でも画像ファイルで出力出来る事で前に進めるので
さっそく試してみます
ありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7730 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free