任意数で四角(オートシェイプ)を描く

同一図形をたくさん作る必要があったので今回はそのマクロを。
もちろんコピー貼り付けでも良かったのだが・・・

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
e0080122_22424483.gif

数字を入力するインプットボックスを表示させてその中に任意の個数を入力。
e0080122_22451216.gif

[PR]
by slayer0210 | 2005-12-09 22:45 | マクロ


<< 任意数で四角(オートシェイプ)を描く 時間表示を数値に直す >>