MENU

【Excel】セルに合わせて画像を挿入する方法

excel-image-cell-insert

エクセルに挿入されている画像をセルに収める方法です。

基本のやり方

f:id:min0124:20170129120242j:plain

Altキーを押しながら、画像を移動するとセルの四隅にスナップします。同様に拡大中もスナップするので、その機能をうまく生かしてセルに合わせます。

マクロを使ったやり方

まとめて画像が変換されます。

ちなみに画像の比率を維持しないで良い場合は

LockAspectRatio = msoTrue を LockAspectRatio = msoFalseにします。

比率を維持したまま、セルの横幅(W)に画像が合わせるマクロ

Sub FitPicsWidth()
    Dim sp As Shape
    
    For Each sp In ActiveSheet.Shapes
        If sp.Type = msoPicture Then
            sp.LockAspectRatio = msoTrue
            sp.Top = sp.TopLeftCell.Top
            sp.Left = sp.TopLeftCell.Left
            sp.Height = sp.TopLeftCell.Height
            sp.Width = sp.TopLeftCell.Width
        End If
    Next
End Sub

比率を維持したまま、セルの縦幅(h)に画像が合わせるマクロ

Sub FitPicsHight()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
        With pic.TopLeftCell
            pic.LockAspectRatio = msoTrue
            pic.Top = .Top
            pic.Left = .Left
            pic.Width = .Width
            pic.Height = .Height
        End With
    Next
End Sub

参考

エクセルで図や写真を挿入するときに任意のセルの大きさにワンク… - 人力検索はてな