サンプルコードでできること 選択した図のアンカーをロック（ロック解除）します。 Sub LockAnchorAllShpe() ’アンカーをロックします。 Dim sp As Shape For Each sp In Selection.ShapeRange Selection.ShapeRange.LockAnchor = True Next End Sub Sub Loc…