VBA代码，用于更改从另一个工作表链接的形状文本

Question

下面是我使用第二个代码的代码，但是Text的Shape上的函数 不管怎样，只显示 = LIST！A2 需要显示的是工作表名称列表中单元格A2的编号。我尝试修改但似乎现在运作良好

谢谢你。对于任何帮助

 Sub AFRVIS()
    Dim ws As Worksheet
    Dim sp As Shape
    Set ws = Sheet2
    For Each sp In ws.Shapes


         Sheet2.Shapes.Range("Rounded Rectangle 2").FormulaArray = "=LIST!B2"



    Next
End Sub

Sub NoVIS()
    Dim ws As Worksheet
    Dim sp As Shape
    Set ws = Sheet2
    For Each sp In ws.Shapes

         Sheet2.Shapes.Range(Array("Rounded Rectangle 2")).TextFrame.Characters.Text = "=LIST!A2"


    Next
End Sub

Answer 1

Sheet2.Shapes.Range(Array("Rounded Rectangle 2")).TextFrame.Characters.Text = _
Sheet1.Range("A2")

现在解决了。