マクロの実行させる範囲を図形内とする事はできますか？

Question

マクロを実行させる範囲を【図形内】という指示とかってできないですかね？

例えば、横はA列からC列、行は1行目から3行目の合計9セルの上に枠を配置したとして、
その枠内にあるデータだけにマクロを実行させる・・・という感じです。

なにがしたいかと言いますと・・・
データの行が不定期に今後ずっと増えていくと仮定して、
その際に「挿入」をすることで、行が増え、図形も自動で勝手に伸びると思います。
そのため、【図形内のみ限定でマクロの処理をする】というマクロが組めれば、
更新の度にマクロをいじって範囲を広げる必要がないので、手間ではないのですが。

上記が無理でも別に良い方法がありましたら教えて頂けますと幸いです。

（前提として）
・【マクロの処理を行いたいデータ】の下にも別のデータがあるので、範囲指定をしないといけない。
・見た目の問題で、ある程度余白をもってセルを開けておく・・・という事もしてはいけない。
・下のものを別のシートで管理する（移動させる）などもできない。

という条件でお願いします。

Answer 1

図形の乗っているセル範囲
四角、三角、丸と確認してみてくださいね。

Private Sub CommandButton1_Click()
 
  Dim shp As Shape
  Dim rng As Range
  Dim row_T As Long
  Dim col_T As Long
  Dim row_B As Long
  Dim col_B As Long

  row_a = Rows.Count
  col_a = Columns.Count
  row_z = 1
  col_z = 1

  For Each shp In ActiveSheet.Shapes
    With shp
      With .TopLeftCell
        row_T = .Row
        col_T = .Column
      End With
      With .BottomRightCell
        row_B = .Row
        col_B = .Column
      End With
      Set rng = Range(Cells(row_T, col_T), Cells(row_B, col_B))
      MsgBox shp.Name & " / " & rng.Address(False, False)
    End With
  Next shp

End Sub

Answer 2

A1からC3を選択し名前の定義で名前を付ける（例TG）

    ltr = Range("TG").EntireRow.Row ' 左上行
    ltc = Range("TG").EntireColumn.Column ' 左上列
    rbr = ltr + Range("TG").Rows.Count - 1 ' .Countでは1から数えてしまうのでマイナス1 右下行
    rbc = ltc + Range("TG").Columns.Count - 1 ' .Countでは1から数えてしまうのでマイナス1 右下列
    For Col = ltc To rbc
        Sum = 0
        For Row = ltr To rbr
            MsgBox Col & "," & Row & "," & Cells(Row, Col).Value
        Next
        
    Next
End Sub
コード

行列挿入しても範囲名が追従するのですがどうですか

Answer 3

図形と同じ考えですが、
範囲の左上隅と右下隅のセルにセル名(たとえば"左上隅"、"右下隅")をつける
というのはどうでしょうか?

行、列の挿入によりセルが移動してもセル名は前と同じセルにあるので
Range("左上隅")
Range("右下隅")
とすれば、左上隅、右下隅のセルがとれます。

注意点としては、範囲の外側、たとえば左上隅のすぐ上の行とか
右下隅のすぐ右の列には挿入できません。
このケースが考えられる場合はセル名をつける位置を1行1列外側にして
処理する時に1行1列内側で処理します。

Answer 4

Sub test()
    Dim myRng As Range
    
    With ActiveSheet.Shapes(1)
        Set myRng = Application.Range(.TopLeftCell, .BottomRightCell.Offset(-1, -1))
    End With
    
    '動作確認用
    With myRng
        .Value = "てすと"
        .Interior.Color = vbRed
    End With
End Sub

図形をどのように配置するかわかりませんが、
きっちりセルの枠線に合わせると、こんな感じですかね。
枠に合わせないなら、実験して微調整が必要かもですね。

---

追記

も～しかして、

ActiveSheet.UsedRange

でことたりるのかと？
「シート上の使用しているセル範囲」が分かればいいのかな？
セルの書式設定や事前に数式を仕込んでいると、
思い通りの結果が得られないかもしれませんが。