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

下面是我的代码，我使用的第二个代码工作，但在文字的形状Dont的工作很好，它只是显示= LIST！A2它需要显示的是在工作表名单中单元格A2的数字。 我尝试修改，但似乎现在运作良好

谢谢。 为anyhelp

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") 

现在解决了。