シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない

' 機能概要: シート内の全てのシェイプに対して、セルに合わせて移動するがサイズ変更はしない設定を行う
Sub prc設定シェイププロパティ()

    ' 変数宣言
    Dim wsTarget As Worksheet  ' 対象となるワークシート
    Dim shp As Shape           ' シェイプオブジェクトを格納する変数
    
    ' 対象となるワークシートを設定
    Set wsTarget = ThisWorkbook.Sheets("Sheet1")
    
    ' シート内の全てのシェイプに対してループ
    For Each shp In wsTarget.Shapes
        ' セルに合わせて移動するが、サイズ変更はしない
        shp.Placement = xlMove
    Next shp

End Sub