Excelで複数の画像をまとめてコピーしてJPEGとして貼り付けると、一枚の画像のように結合されてしまい、個別に動かすことができません。効率よく個別画像として保存・貼り付ける方法を知ることで、作業を大幅に短縮できます。本記事では、複数画像をまとめてJPEGに変換する手順を解説します。
なぜまとめて貼り付けると一枚になるのか
Excelで複数画像をCtrl＋Aで全選択してコピーすると、クリップボード上ではグループ化されたオブジェクトとして扱われます。そのため、貼り付け時にJPEGとして貼ると一枚の画像として結合されます。
個別に動かしたい場合は、グループ化を解除するか、個別保存の方法を選ぶ必要があります。
個別にJPEGとして保存する方法
1. Excelで画像を右クリックして「図として保存」を選択します。1枚ずつ保存が可能です。
2. まとめて保存したい場合は、VBAマクロを使用すると便利です。マクロでワークシート上のすべての画像を順にJPEGとしてフォルダに保存できます。
VBAを使ったまとめて保存の手順
ExcelでAlt＋F11を押してVBAエディタを開き、標準モジュールに以下のコードを追加します。
Sub SavePicturesAsJPEG()
Dim pic As Picture
Dim i As Integer
i = 1
For Each pic In ActiveSheet.Pictures
pic.Copy
Dim chartObj As ChartObject
Set chartObj = ActiveSheet.ChartObjects.Add(0, 0, pic.Width, pic.Height)
chartObj.Chart.Paste
chartObj.Chart.Export Filename:=”C:\Pictures\Image” & i & “.jpg”, FilterName:=”jpg”
chartObj.Delete
i = i + 1
Next pic
End Sub
実行すると、指定フォルダにすべての画像がJPEGとして保存されます。
保存後の貼り付け方法
保存したJPEGをExcelやWordに挿入すると、個別に移動やサイズ変更が可能です。これにより、複数画像を一枚として扱うことなく自由に配置できます。
また、貼り付け後にグループ化せずに編集できるので、作業効率が向上します。
まとめ
Excelで複数画像をまとめて貼り付けると一枚の画像になってしまう問題は、個別にJPEGとして保存することで解決できます。VBAマクロを使えば、複数画像を効率的に一括保存可能です。
この方法を活用することで、画像を個別に扱う作業が格段に簡単になり、編集の自由度も高まります。
コメント