マクロで、選択セルの直近にオブジェクト（オートシェイプ）を作成したい
お世話になります。エクセルマクロのまだまだ初心者です。
エクセルで、５列×２５行ほどのセル範囲における作業ですが、そのなかのいくつかに文字が入力されています。どこのセルにいくつ入力されるかは常に変化します。その、入力されている全てのセルのすぐ近くに、一定の大きさのオートシェイプ（吹き出し）を作成したいのです。
入力されているセルを選択することと、オートシェイプを作るマクロは、
Range("A1:D25").Select
Selection.SpecialCells(xlCellTypeConstants, 2).Select
’吹き出しの作成
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 165#, 61.5, _
105.75, 56.25).Select
Selection.Characters.Text = "Hello World!"
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
End With
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
End With
こんな感じに作れましたが、選択セルのすぐ近くという位置取りがどう調べても分かりません。
位置は、セルの上下左右どこでもいいのですが、そのセルを説明するように吹き出しを入れたいのです。
良い方法があるでしょうか。
よろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
いや、びっくりしました。 たしかに回転しました。 これで積極的にオートシェイプを使うことが出来ます。 有難うございました！