Excel VBA 質問スレ Part14
レス数が900を超えています。1000を超えると表示できなくなるよ。
0913デフォルトの名無しさん
2010/04/09(金) 16:28:152007はオートシェイプのマクロが作りにくいからなあ。
(1) そのWithの使い方はおかしい
(2) セル範囲じゃなくてちゃんと図形がSelectされてる？
とりあえず模範解答
ActiveSheet.Shapes("WordArt 1").Select
WD = Selection.ShapeRange.Width
Selection.ShapeRange.Width = WD * 0.7
レス数が900を超えています。1000を超えると表示できなくなるよ。