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



渡邊博史被告の最終意見陳述

http://bylines.news.yahoo.co.jp/shinodahiroyuki/ 
こちらに乗っている黒子のバスケ脅迫した犯人(渡邊博史被告)の最終意見陳述を自分なりに要約してみる

続きを読む

過去のアイコン

過去のアイコンまとめます
先に言うと、僕が得します
見つかったのだけまとめたけど、忘れただけで他に使ってたのあるかもしれない

続きを読む

何種類かから何個か取り出して何種類取れるか期待値を求めるプログラム

私信
これでできてるのか全然分かんないしなんかバグあったらおしえて
javaコンパイルできない人は諦めて

続きを読む

シャッツキステ行きました

生まれて初めてメイドカフェに行きました

続きを読む