こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

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

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

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

投稿日時 - 2016-01-12 23:21:20

QNo.9110449

困ってます

質問者が選んだベストアンサー

どこが上手く行かないか書かないとまともに回答してもらえませんよ。
セルから情報を取り出すのにつまづいているのか、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

投稿日時 - 2016-01-13 06:34:14

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-