[[20060127162218]]　『エクセルVBAの図形をBMPで保存』（くれまちす）　ページの最後に飛ぶ

『エクセルVBAの図形をBMPで保存』（くれまちす）
エクセル上にBMPを貼り付け、
そのいくつかをグループ化したものを、
新たにBMPとして保存したいのですが、
どなたかよい方法をご存知ないでしょう。

エクセル上にaaa.bmpとbbb.bmpを貼り付ける。←VBAで完了
aaa.bmpとbbb.bmpをグループ化する。←VBAで完了
グループ化した図形をccc.bmpとして保存する。←ここがうまく行きません。

 ダサいコードですが・・・。
 1.シートをコピーしWeb形式で保存→生成されたフォルダの
 2.image001.gifを.bmpにしてブックと同じフォルダに保存
 3.生成されたフォルダとhtmファイルを削除

 Sub bmp()
  Dim Fname As String
  Dim gazof As String
   Fname = ThisWorkbook.Path & "\" & "test"
     ActiveSheet.Copy
      With ActiveWorkbook
      .SaveAs Filename:= _
        Fname & ".htm", FileFormat:=xlHtml, _
         ReadOnlyRecommended:=False, CreateBackup:=False
       .Close
      End With
    gazof = Fname & ".files\" & "image001"
    Name gazof & ".gif" As ThisWorkbook.Path & "\" & "ccc.bmp"
    CreateObject("Scripting.FileSystemObject").DeleteFolder Fname & ".files"
    Kill Fname & ".htm"
 End Sub
 (MARBIN)

「MARBIN」様
ご親切にコードまで書いていただきりがとうございました。
思っていたとおりのことができ、大変助かりました。
（くれまちす）

コメント返信：

[ 一覧(最新更新順) ]

[[20060127162218]] 『エクセルVBAの図形をBMPで保存』（くれまちす） ページの最後に飛ぶ

[[20060127162218]]　『エクセルVBAの図形をBMPで保存』（くれまちす）　ページの最後に飛ぶ