如何使用Excel单元格内容更改visio形状名称？

Question

我为每个循环创建了此代码，以便在我在代码上放置静态名称的情况下，将设备的ip地址添加到它找到设备的形状文本中，但这看起来好像不是从A列读取工作表名称

当我更改循环并在上面写一个形状名称时，我可以更改任何形状名称。但这似乎并没有从工作表中读取值，并且工作表处于活动状态且已打开。

这是我的代码

    For Each node In ActivePage.Shapes


          If node.Text = Sheets("results").Cells(WhatRow, "A").Value Then

          node.Text = Sheets("results").Cells(WhatRow, "A").Value & 
Chr(13) & Chr(10) & "IP Address" & Chr(13) & Chr(10) & cel.Offset(0, 
2).Value

           WhichRow = WhichRow + 1



            Else

            End If


    Next node

我需要循环才能通过列a并将值与形状名称进行比较，如果找到匹配项，则将名称更改为列a值加上列c中对应单元格的值，即设备IP。谢谢