注意, 这里与Worksheets(I)可能类似, 就是说这个I作为Index, 如果在有相应对象被删除的时候, 会发生重排的问题, 有点像EXCEL表格中的行数, 中间一旦有被删行, 那么会导致的问题就是所有的自然行数会要被重排. 一旦重排, 可能就会发生引用错序而出错的问题 对策, 可以倒序删除 For I = M.Pictures.Count To 1 Step -1 Debug.Print M.Pictures(I).Name M.Pictures(I).Delete Next I

或者使用For each in 循环来避免这个问题.

同shapes/rows等对象