人気ブログランキング | 話題のタグを見る

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

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

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

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


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