スキルアップ・問題解決なら、モーグにおまかせ！

図形にセルの内容を表示するために、
数式バーで「=A1」のように入力することがあります。
この内容は、どこのプロパティにセットされているのでしょうか？
 
マクロの記録では、
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 213.75, 39, 67.5, _
        39).Select
    Selection.Formula = "=A1"
となります。

Shape.DrawingObject.Formula で取得・設定できます。
 
Sub Macro1() '図形1の式を図形2に
  Dim s As String
  s = ActiveSheet.Shapes(1).DrawingObject.Formula
  If Len(s) Then
    Debug.Print s
    ActiveSheet.Shapes(2).DrawingObject.Formula = Trim(s)
  End If
End Sub
 
Sub Macro2() '図形が参照しているセルを黄色く
  Dim Shp As Object
  Dim s As String
  For Each Shp In ActiveSheet.DrawingObjects
    On Error Resume Next
    s = Shp.Formula
    On Error GoTo 0
    If Len(s) Then
      Debug.Print s
      Range(s).Interior.Color = vbYellow
    End If
  Next
End Sub

んなっと さん
 
レスありがとうございました。
Shapeにこだわって、面倒くさいコードを考えていました。
一応、できたんですが、
こちらの方が、シンプル、スマートです。
 
こちらを採用させていただきます。
 
ありがとうございました。