VBA VISIO 读取shape data 的 label 数据为0

问题遇到的现象和发生背景

想用VBA 读取Visio内 shape的数据

问题相关代码，请勿粘贴截图

Sub marco()

Set vPages = ThisDocument.Pages
Set vPage = vPages.Item(1)
Set shps = vPage.Shapes

Dim i As Integer
Dim j As Integer

Dim shpcount As Integer

shpcount = shps.Count

Set shp = shps(235)

Set vCell = shp.Cells("Prop.cost.Label")
Set a = shp.CellsSRC(visSectionProp, visRowProp, visCustPropsLabel)

Debug.Print a

End Sub

运行结果及报错内容

无论是直接用Cells 还是CellSRC读取的数据都是0
但是实际上Prop.cost.label 是有数据的

img

我的解答思路和尝试过的方法
我想要达到的结果

如何得到实际cell里面的数据，谢谢

找到原因了，后面直接加一个formula就好了.....