Excelで画像を重ならないように整列して並べたい
![](http://cdn2.aprico-media.com/production/imgs/images/000/101/207/original.png?1693210314)
Microsoft Excelで画像を重ならないように整列して並べたいと思ったことはありませんか?セルの区切りを目印にして手動で画像を重ならないように整列させるといった方法で並べることもできますが、手間がかかって面倒ですよね。
そこで、自動で画像を重ならないように整列させてみましょう。この記事では、Excelで画像を重ならないように整列して並べる方法をご紹介していきます。
Excelで画像を重ならないように整列して並べる方法
それでは、Excelで画像を重ならないように整列して並べる方法を説明していきます。画像を重ならないように整列して並べる際に手動ではなく自動で整列させたい場合はマクロを使用します。マクロは「開発」タブから使用するため、もしお使いのExcelに開発タブが表示されていない場合は下記リンク先の記事を参考にして開発タブを表示させましょう。
![「マクロ」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/101/197/original.jpg?1693209617)
![「マクロ名」欄に画像の整列用マクロだと分かる名前を入力→「作成」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/101/198/original.jpg?1693209672)
![「Microsoft Visual Basic for Applications」ウィンドウ](http://cdn2.aprico-media.com/production/imgs/images/000/101/199/original.jpg?1693209735)
Sub 選択中の画像整列() Dim isFirst As Boolean: isFirst = True Dim left As Integer: left = 0 Dim shp As Shape '選択中の画像内で一番左端の座標を取得 For Each shp In Selection.ShapeRange If isFirst Then '最初のオブジェクトの左座標を初期値とする left = shp.left isFirst = False End If left = Application.WorksheetFunction.Min(shp.left, left) Next shp Dim befourButtom As Integer befourButtom = 0 For Each shp In Selection.ShapeRange If befourButtom <> 0 Then '重ならないように、前のオブジェクトの少し下に配置する shp.Top = befourButtom + 5 End If '左座標は一番左のものに合わせる shp.left = left befourButtom = shp.Top + shp.Height Next shp End Sub
![「挿入」タブ→「画像」→「このデバイス」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/101/200/original.jpg?1693209844)
![「Ctrlキー+左クリック」操作で整列したい画像をすべて選択](http://cdn2.aprico-media.com/production/imgs/images/000/101/201/original.jpg?1693209946)
![「Microsoft Visual Basic for Applications」ウィンドウ](http://cdn2.aprico-media.com/production/imgs/images/000/101/202/original.jpg?1693209987)
![画像を重ならないように整列して並べることができた](http://cdn2.aprico-media.com/production/imgs/images/000/101/203/original.jpg?1693210046)
![「開発」タブ→「挿入」→「ボタン(フォームコントロール)」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/101/204/original.jpg?1693210086)
![作成した画像整列用のマクロを選択し「OK」をクリック](http://cdn2.aprico-media.com/production/imgs/images/000/101/205/original.jpg?1693210161)
![シート内に画像整列用のボタンを作成することができた](http://cdn2.aprico-media.com/production/imgs/images/000/101/206/original.jpg?1693210215)
以上が、Excelで画像を重ならないように整列して並べる方法の説明となります。