【Word VBA/マクロ】選択図形のアンカーロック/ロック解除（複数の図に対応）

サンプルコードでできること

選択した図のアンカーをロック（ロック解除）します。

Sub LockAnchorAllShpe()
’アンカーをロックします。
    Dim sp As Shape
    
    For Each sp In Selection.ShapeRange
        Selection.ShapeRange.LockAnchor = True
    Next
End Sub

Sub LockAnchorCancellAllShpe()
’アンカーをロック解除します。
    Dim sp As Shape
    
    For Each sp In Selection.ShapeRange
        Selection.ShapeRange.LockAnchor = False
    Next
End Sub