＃２のご回答に触発されて、下記をやってみました。
A1:A10に
内田 研
山田 鱒二
矢田 恵子
植田 秀雄
大川 邦夫
栗田 夏見
中田 正治
マーシャル
本田 通
横沼 健二
とあるとします。
行高、列幅は適当にします。
ＶＢＥに
Sub Test21()
Dim sh As Shape
ActiveSheet.DrawingObjects.Delete
For i = 1 To 10
With ActiveSheet.Cells(i, 2)
.Activate
Set sh = ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, .Left, .Top, .Width * 2, .Height)
sh.Select
Selection.Characters.Text = Cells(i, "A")
End With
Next i
End Sub
を貼り付け、実行します。
これで四角の中に
氏名が入ります。
これらを十字型矢印マウスポインタを出して、適当な位置にＤ＆Ｄしてみてください。
名前を入れる手間が少し省けます。
ーーーーーーーーーーーーーーーー
または
Ａ列、Ｃ列に
内田 研 H2
山田 鱒二 F2
矢田 恵子 D4
植田 秀雄 J4
大川 邦夫 D6
栗田 夏見 J6
中田 正治 E8
マーシャル I8
本田 通 G10
横沼 健二 D4
と入れて
Sub Test21()
Dim sh As Shape
ActiveSheet.DrawingObjects.Delete
For i = 1 To 10
L = Range(Cells(i, "C")).Left
T = Range(Cells(i, "C")).Top
With ActiveSheet.Cells(i, "B")
.Activate
Set sh = ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, L, T, .Width, .Height)
sh.Select
Selection.Characters.Text = Cells(i, "A")
End With
Next i
End Sub
を実行すると
、もしＣ列のセル番地の設定がうまく行われると、自動的に円形的に配置されます。（すみません上例は手抜きで円形的になってません）
お遊びのような範囲のＶＢＡですのでご笑納ください。
ひょっとすると使えるかも。
実際テスト済みということで、自信ありになってます。
マクロの記録をとれば、ＶＢＡに詳しくなくても、フォントやその他
いじくれば、自分のしたいように、改造できるかもしれない。
円もマクロの記録を使えばＶＢＡでシート上に円が掛けます。
msoShapeRectangleーー＞msoShapeOvalです。
