2007 vba 处理图片时报错(指定的值超出了范围)，求助于各位大虾！！

liuzhimayi

注：原来的ID：六只蚂蚁无法登陆了，报错IP被封或帐号被封（有可能是因为我在这里发过其他网站的链接，以为我做广告吧）
注：斑竹 LDY有一个帖子说有解决办法，可是那个网页打不开了。

我是EXCEL三国杀作者六只蚂蚁，EXCEL三国杀上线以来，很多OFFICE 2007的玩家反馈2007无法运行，报错超过范围之类的。
而也有2007玩家可以运行的。
总结起来有两个：
1、运行时报错'-2147024809（80070057）'指定的值超出了范围
2、有比较明显的闪烁。
上述两个问题在2003下是没有的(尤其是第二个，很不明显，不影响视觉效果)
经过各位朋友的指点，把问题暂时定为在图像的显示和隐藏上，闪烁问题估计是2007本身占用资源的缘故。
今天到这里，有请各路大侠帮忙指点，我代表广大喜欢EXCEL三国杀的朋友感谢大家，呵呵
关键语句：
Private Sub HidePic()     
    Dim I       As Integer
    For I = 1 To Worksheets("主界面").Shapes.Count
        If InStr(Worksheets("主界面").Shapes(I).Name, "PIC_") > 0 Then
            Worksheets("主界面").Shapes(I).Left = Worksheets("主界面").Range("CA20").Left
        End If
    Next
End Sub
If Worksheets("主界面").Shapes(I).Name = "PIC_" & strName Then
    Worksheets("主界面").Shapes(I).Left = rgeRange.Left + 1
    Worksheets("主界面").Shapes(I).Top = rgeRange.Top + 1
End If

liuzhimayi

被淹没了，只好顶起，期待啊！

zxpmjmagic·

遇到同样的问题，没有答案啊