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

昨日任意数で四角(オートシェイプ)を描くでも書いたが、今回は横方向のみではなく縦方向へも作成してみた。

Sub 任意の数でオートシェイプを作る()
Dim x As Integer
Dim y As Integer
Dim i As Integer
Dim kosu As Integer 
 kosu = InputBox("作成したい図形の個数を入力", "半角で")

 For y = 1 To Int(kosu / 4) + 1
   For x = 1 To 4
     If i = kosu Then Exit For
       ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20 * x, 20 * y, 20, 20).Select
          i = i + 1
   Next
 Next
End Sub

Sub 削除()
Dim myshape As Shape
 For Each myshape In ActiveSheet.Shapes
    If myshape.Type <> msoFormControl Then
       myshape.Delete
    End If
 Next
End Sub
e0080122_10132784.gif

意味もなくImputBoxを出してはみた。
e0080122_1017113.gif

変数などが少々おかしいと思われるが、目的のものが出来たのでよしとするか。
[PR]
by slayer0210 | 2005-12-10 10:19 | マクロ


<< 数行おきに合計 任意数で四角(オートシェイプ)を描く >>