Excelで画像を重ならないように整列して並べる方法！

Excelで画像を重ならないように整列して並べたい

Microsoft Excelで画像を重ならないように整列して並べたいと思ったことはありませんか？セルの区切りを目印にして手動で画像を重ならないように整列させるといった方法で並べることもできますが、手間がかかって面倒ですよね。

そこで、自動で画像を重ならないように整列させてみましょう。この記事では、Excelで画像を重ならないように整列して並べる方法をご紹介していきます。

Excelで画像を重ならないように整列して並べる方法

それでは、Excelで画像を重ならないように整列して並べる方法を説明していきます。画像を重ならないように整列して並べる際に手動ではなく自動で整列させたい場合はマクロを使用します。マクロは「開発」タブから使用するため、もしお使いのExcelに開発タブが表示されていない場合は下記リンク先の記事を参考にして開発タブを表示させましょう。

Excelの開発タブを表示する方法を紹介！

Microsoft Officeの表計算ソフト・Excelで、VBAやマクロの作成・操作・実行を行いたいのに「開発タブ」が表示されていなくて困ってしまったことはありませんか？この記事では、Excelの開発タブを表示する方法をご紹介しています。

まずは「開発」タブをクリックしてリボンメニューを開き、「コード」項目の「マクロ」をクリックしましょう。

「マクロ名」欄に画像の整列用マクロだと分かる名前を入力→「作成」をクリック — 「マクロ」ダイアログボックスが表示されるので、「マクロ名」入力欄に画像の整列用マクロだと分かる名前を入力します。名前の入力後に、右側のメニューから「作成」をクリックしましょう。

「Microsoft Visual Basic for Applications」ウィンドウが表示されます。コードの入力ウィンドウがあるので、こちらに下記のコードを入力しましょう。

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