
Excel VBAについての質問です。
タイトルの通り、指定範囲(Range("A1:AJ58"))を画像で保存するマクロを作成したいです。
保存先はブックと同じパスです。
Chart.Exportで画像通りのエラーが出てしまいます。
'Export'メソッドは失敗しました'Chart'オブジェクト
どのように変更すればよいでしょうか。
よろしくお願いいたします。
Sub PNG出力()
Dim FileSize As Long
Dim pic As ChartObject
Dim picName As String: picName = ActiveWorkbook.Path & "\" & Range("C3") & ".png"
Dim rng As Range: Set rng = Range("A1:AJ58")
'■セル範囲を画像データでコピーする。
rng.CopyPicture
'■指定したセル範囲と同じサイズのpicを新規作成し、保存する。
Set pic = ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
pic.Chart.Export ThisWorkbook.Path & picName 'ここでエラー
FileSize = FileLen(ThisWorkbook.Path & picName)
'■picのFileSizeを超えるまでループする(画像データが出来上がったら終了する)
Do Until FileLen(ThisWorkbook.Path & picName) > FileSize
pic.Chart.Paste
pic.Chart.Export ThisWorkbook.Path & picName
DoEvents
Loop
'■作成完了後、pic削除。
pic.Delete
Set pic = Nothing
End Sub

No.1ベストアンサー
- 回答日時:
こんにちは
エクセルのバージョンによって多少違いがあるみたいですね。
ご提示のコードでは2度保存しているようですが、理由がよくわかりませんね。
従来のエクセルでは図の保存ができなかったので、いろいろな方法が考えられていますが、もしもOffice365をご利用なら、365では「図として保存」がサポートされているようですので、そちらをご利用になるのが宜しいと思います。
(当方、Win10、Excel2019環境なので確認はできていませんが・・)
さて、ご質問の件ですが、ご提示のコードのオリジナル(?)になっていると思われる以下のソースで実行してみたところ、当方の環境では問題なく動作しました。
https://teratail.com/questions/105469
(CopyPictureでエラーがでましたが、フォーマットをbitmapにすることで解決)
どうしても上手くいかない場合は、一旦、xlsxで保存して、zip形式で対象画像を探すという方法もあるようです。(こちらは動作確認していません)
https://www.shegolab.jp/entry/excel-macro-save-i …
遅くなってしまい申し訳ございません。
ご回答ありがとうございます。
図として保存ならできそうですが、やはりマクロにするのは難しそうですね。。。
No.2
- 回答日時:
>picName = ActiveWorkbook.Path & "\" & Range("C3") & ".png"
変数picName はフルパスが設定されていますよね?
>pic.Chart.Export ThisWorkbook.Path & picName 'ここでエラー
Exportする際、頭にパスを追加しているのは何故ですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
Excel vbaについての質問
Visual Basic(VBA)
-
VBAでセルを指定した画像のコピー&ペーストを繰り返したい
Excel(エクセル)
-
-
4
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
5
VBA Shapes コピーと名前
Excel(エクセル)
-
6
EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く
Excel(エクセル)
-
7
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法
Excel(エクセル)
-
11
エクセルで作成した画像を保存する方法はありますか
Excel(エクセル)
-
12
エクセルVBAで埋め込みグラフ(ChartObjects)のアクティブ
Visual Basic(VBA)
-
13
EXCEL VBA 複数のImageコントロールにクリップボードに保存されている画像を表示したい
Visual Basic(VBA)
-
14
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
15
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
16
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
17
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
18
【エクセル】シート内の表をUserFormに画像として表示させる方法
Excel(エクセル)
-
19
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
20
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
vba textboxへの入力について教...
-
Vba セルの4辺について罫線が有...
-
複数のExcelファイルをマージす...
-
vbsでのwebフォームへの入力制限?
-
VBAでセルの書式を変えずに文字...
-
Vba Array関数について教えてく...
-
【マクロ】開いているブックの...
-
改行文字「vbCrLf」とは
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルのマクロについて教え...
-
Vba FileSystemObject オブジェ...
-
エクセルのマクロについて教え...
-
【ExcelVBA】値を変更しながら...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】並び替えの範囲が、...
-
vb.net(vs2022)のtextboxのデザ...
-
エクセルのVBAコードと数式につ...
-
【マクロ】値を渡されたプロシ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでPDFを作成する際、同じ名...
-
【VBA】Excelの特定範囲のセル...
-
どのバージョンのイラレを購入...
-
Illustratorでのロゴ出力について
-
Open OffceカルクとMSエクセル...
-
epsファイルが開けない。
-
PDFのデータをフリーのXChenge-...
-
PowerPointで保存ができません。
-
EXCELで昇順並び替えを元に戻す
-
windowsのイラストレータで作っ...
-
助けてください。エクセルのグ...
-
フォトショップからイラストレ...
-
EXCEL のドキュメントの回復に...
-
Xperiaを使ってるのですがギャ...
-
トンボ内をpdfに書き出したい
-
Illustratorでアートボード内だ...
-
Illustrator 中の要素ごとアー...
-
イラストレーターで印刷範囲が...
-
イラストレーターでオブジェク...
-
他のアートボードに同じ位置で...
おすすめ情報
失礼しました。ご指摘ありがとうございます。
パスを追加していない状態で再度試してみましたが、同じエラーがでました。