shapes集合为何是空值？

jaxxcyh

1. Sub pic()
   
2. Dim Shp As Shape
   
3. For Each Shp In Sheet1.Shapes
   
4.     Debug.Print Shp.Name
   
5. Next
   
6. End Sub
   

复制代码

饮冰e士

jaxxcyh

饮冰e士 发表于 2024-8-11 11:15

答非所问呀，您这是重新定义了一个shps为shapes对象，当然可以存放所有的shape。我的问题是，为啥本身的shapes里显示空值。难道是这里的shapes是个类，还没实例化？它干嘛要在本地窗口里显示呢?

ww87725244

运行没有shapes啊

jaxxcyh

ww87725244 发表于 2024-8-11 11:32
运行没有shapes啊

奇怪，为何你的本地窗口里没哪个shapes? 难道我的Excel有bug？

饮冰e士

jaxxcyh 发表于 2024-8-11 11:25
答非所问呀，您这是重新定义了一个shps为shapes对象，当然可以存放所有的shape。我的问题是，为啥本身的s ...

就是没有，所以才定义了一个，既然相等，这个有，那不就说明那个也有了吗。

jaxxcyh

饮冰e士 发表于 2024-8-11 11:44
就是没有，所以才定义了一个，既然相等，这个有，那不就说明那个也有了吗。

晕哦，我的Excel就有shapes，并且是空值。

gwjkkkkk

for each 遍历最后一个shape后，再next是没有了，接着初始化shape,所以最后是shape是nothing.

jaxxcyh

gwjkkkkk 发表于 2024-8-11 11:48
for each 遍历最后一个shape后，再next是没有了，接着初始化shape,所以最后是shape是nothing.

看下7楼的录像，我只开始第一遍循环，也是那样

jaxxcyh

gwjkkkkk 发表于 2024-8-11 11:48
for each 遍历最后一个shape后，再next是没有了，接着初始化shape,所以最后是shape是nothing.

断点随便打在哪里都那样，跟循环无关