埋め込みグラフをBMP形式で保存するには?

Question 5307 拙著「Excel VBA そのまま使える実用マクロ 500連発」 Previous Next
詳細は こちら サンプルNo.300 ◆ 環境・・ Excel 2003 & Windows XP

お世話になります。
500連発_実用マクロを購入し、P.212のサンプルNo.300(300.xls)を実行するとエラーになります。
msg内容   実行時エラー1004: 'アプリケーション定義またはオブジェクト定義のエラーです。
.ChartObjects(1).Chart.Export の箇所で発生します。
よろしくお願いします。
それと、できれば、教えていただきたいのですが、ChartObjectsのexport は、bmp形式 はできないでしょうか?
Answer   Copyright (C) 2007.7.15 永井善王
拙著 「Excel VBA そのまま使える実用マクロ 500連発」 を お求めいただき、ありがとうございます。
500-3-300 300番は 「埋め込みグラフをGIF形式で保存する」 と題するサンプルですね。

1つ目のご質問にある実行時エラーですが、念のためこちらでテストしてみましたが、再現できませんでした。
もしかして、グラフィックフィルタをカスタマイズしているようでしたら、Windowsの標準環境に戻してから実行してみてください。

2つ目の BMP形式で保存したい場合は、Macro1のうち2カ所を下記のように変更すれば、可能になります。
    strFile = Path(ThisWorkbook.Path) & _
        .ChartObjects(1).Name & ".bmp"

        FilterName:="BMP", _
なお、JPGも、これに準じて変更すれば可能になります。

 

Excel VBA Macro