FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

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 ' セル削除や移動に合わせたリサイズ、移動を行わない
スポンサーサイト

コメントの投稿

非公開コメント

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。