数据怎么读不出来？

dongdonggege

一个任意多边形，读取各节点坐标。
麻烦了，谢谢

719404338

1. Sub test()
   
2.     Set shp = ActiveSheet.Shapes(1)
   
3.     For Each x In shp.Nodes
   
4.       For Each y In x
   
5.         MsgBox y
   
6.       Next
   
7.     Next
   
8.    
   
9. End Sub

复制代码

ω逆鳞々

................................

dongdonggege

ω逆鳞々 发表于 2023-1-7 15:05
................................

中间省了一节呢，也可以，谢谢老师。

zxsea_7426

这个算不算有结果出来?

zxsea_7426

现在不截图上传了，只能另存为图片才能上传了。有点烦啊。

dongdonggege

zxsea_7426 发表于 2023-1-7 19:22
这个算不算有结果出来?

谢谢老师的帮助

dongdonggege

zxsea_7426 发表于 2023-1-7 19:25
现在不截图上传了，只能另存为图片才能上传了。有点烦啊。

谢谢老师的帮助