エクセル 入力数字から四角形作成

質問

すいません、教えてください。
入力した大きさの四角形を自動で表示したいです。10ー20行分。
四角形はダブって表示されてもいいのですが、四角形の中にA列の記号(例えば(1))をいれて、
どの四角形なのか区別するようにしたいです。
最終的には四角形を組み合わせて 規定枠にいくつ入るか調べたい為です。
Addshapeを使うことはわかったのですが、なかなか上手く出来ません。
お知恵を下さい。

A B C
1 (1) 100 100
2 (2) 120 150
3 (3) 200 180

回答No.1

kanemoto_s · ベストアンサー

どこが上手く行かないか書かないとまともに回答してもらえませんよ。
セルから情報を取り出すのにつまづいているのか、AddShapeの引数が分からないのか、shapeにテキストを設定できないのか、ループにつまづいているのか、いったい何なのでしょうか？

Dim r As Range
Dim shp As Shape
For Each r In ActiveSheet.UsedRange.Rows
If r.Cells(1, 1) = "" Then Exit For
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, r.Cells(1, 1) * 100, 100, r.Cells(1, 3), r.Cells(1, 4))
shp.TextFrame.Characters.Text = r.Cells(1, 2)
shp.TextFrame.HorizontalAlignment = xlCenter
shp.TextFrame.VerticalAlignment = xlCenter
Next