Excelのセル内容から画像を作りたい

質問

・Excelで、範囲[A1:J10]の各セルに「a」～「d」の文字が入っている
・「a.bmp」～「d.bmp」の同じサイズの画像がある
この状態から、[A1:J10]の内容に従い画像を並べた後、1枚の画像として保存したいです。
どのような方法を取ればよろしいでしょうか。

範囲は複数あるので、PrintScreen→トリミングという作業は手間がかかるので、
それ以外の方法で有効な方法があれば教えてください。

回答No.3

noname#52504

ご質問の主旨を取り違えていましたらすみません。
・４種類の画像を指定した順序で100枚並べたい
・現在Excel上にあるのは、順序を指定する文字データだけ
・画像そのものはどこかのフォルダに存在している
・並べた100枚の画像を1枚のファイルとして保存したい
ということですよね？
並べた画像をどうするかよりもむしろ、
どうやって並べるかがポイントかと思ったのですが…。

とりあえず、
対象の画像をワークシート上に並べてグループ化するところまではやってみました。
あとはそれコピーし、ペイント等に貼り付けて保存すればよろしいかと。

動作の概要
・Sheet1のA1:J10の各セルの値に応じたファイルを、指定したフォルダから探して、
　Sheet2に挿入して、適切な位置に移動する。
・並べ終わったら、全ての画像を選択してグループ化する。

Sub Sample070928()
　フォルダ = "C:\Documents and Settings\User_Name\デスクトップ\Sample"
　Set 位置表 = ThisWorkbook.Sheets("Sheet1").Range("A1:J10")
　Set 作業シート = ThisWorkbook.Sheets("Sheet2")　　
　For 縦 = 0 To 9
　　For 横 = 0 To 9
　　　作業シート.Pictures.Insert( _
　　　　フォルダ & "\" & 位置表.Cells(縦 + 1, 横 + 1).Value & ".bmp").Select
　　　With Selection.ShapeRange
　　　　.Top = .Height * 縦
　　　　.Left = .Width * 横
　　　End With
　　Next 横
　Next 縦　
　作業シート.Shapes.SelectAll
　Selection.Group　
End Sub

Excel2003で動作確認済

ただし、対象画像のサイズ(縦横幅)やファイルサイズによっては、
Excel上で処理するのは難しいかもしれません。

回答No.2

planex_one

少し手間ですが方法があります。

1.図形描画のオブジェクトの選択でa～dの図形を選択します。
2.右クリックして切り取り。
3.ツールバーの元に戻すで戻しておきます。
4.PhotoShopやJtrimなどで貼り付けをして名前を付けて保存。

これで横に連結された1枚の図形が出来上がります。

回答No.1

marbin

ぴったりと隙間なく並べて
WEBページとして保存したら、
「一応は」１枚のGIFファイルが生成されました。
画質は落ちます。

補足

Excelのセルには文字しか入っていません。
画像は全く貼り付いていない状態なので、画像ファイルとして保存できる状態にはなっていません。