FC2ブログ

ブック内のすべてのオブジェクトにいい感じの設定してずれたりしなくなるマクロ

sub セルに合わせて変更する()
Dim Ws As Worksheet
for Each Ws In Worksheets
Ws.Activate

with ActiveWorkBook.ActiveSheet

Dim Allshapes As Shapes
Dim CurShape As Shape
Set Allshapes = .Shapes

For Each Curshape In AllShapes
CurShape.Placement = xlMove
Next

End with 'activeworkbook,activesheet
Next Ws
End Sub


CurShape.Placement = xlMove ここがきも

xlMove ' セル削除や移動に合わせて移動する
xlMoveAndSize ' セル削除や移動に合わせて移動し、リサイズも行う
xlFreeFloating ' セル削除や移動に合わせたリサイズ、移動を行わない
スポンサーサイト



コメントの投稿

非公開コメント