同一図形をたくさん作る必要があったので今回はそのマクロを。
もちろんコピー貼り付けでも良かったのだが・・・ Sub 任意の数でオートシェイプを作る() Dim i As Integer Dim kosu As Integer kosu = Application.InputBox("1個以上の数字を入力") For i = 1 To kosu ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20 * i, 20, 20, 20).Select Next End Sub 数字を入力するインプットボックスを表示させてその中に任意の個数を入力。
by slayer0210
| 2005-12-09 22:45
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||