Excelでオブジェクトの配置・サイズ設定を一括変更するマクロ

やりたいこと

Excel2003でワークブック内に配置されているオブジェクトの位置関係^*を一括変更する。
* セルに合わせて図形を移動したり、サイズ変更したりする設定のこと。

サンプルコード

Sub setPlacementAs()
    Dim ws As Worksheet
    Dim obj As Shape
    
    'obj.Placementの値を適宜変更する
    'xlMoveAndSize:  セルに合わせて移動やサイズを変更する
    'xlMove:         セルに合わせて移動するがサイズ変更はしない
    'xlFreeFloating: セルに合わせて移動やサイズ変更をしない
    
    For Each ws In ActiveWorkbook.Worksheets
        For Each obj In ws.Shapes
            obj.Placement = xlFreeFloating
        Next
    Next
End Sub

Sub setPlacementAs()

Dim ws As Worksheet

Dim obj As Shape

'obj.Placementの値を適宜変更する

'xlMoveAndSize: セルに合わせて移動やサイズを変更する

'xlMove: セルに合わせて移動するがサイズ変更はしない

'xlFreeFloating: セルに合わせて移動やサイズ変更をしない

For Each ws In ActiveWorkbook.Worksheets

For Each obj In ws.Shapes

obj.Placement = xlFreeFloating

End Sub

※Excel2010でも使用可能