关于EXCEL的SHAPE问题

sikook

我想实现以下功能。就是遍历EXCEL的所有SHEET的所有的SHAPE，根据VB画面输入的内容来替换SHAPE里的内容。
以下是代码：
           sr = sh.Shapes.Count
            For j = 1 To sr
                If sh.Shapes(j).Type = msoAutoShape Or sh.Shapes(j).Type = msoTextBox Or sh.Shapes(j).Type = msoShapeLineCallout1 _
                Or sh.Shapes(j).Type = msoTextOrientationVerticalFarEast Or sh.Shapes(j).Type = 2 Then
                    sh.Shapes(j).TextFrame.Characters.Text = Replace(sh.Shapes(j).TextFrame.Characters.Text, SearchString, ReplaceString)
'                ExcelBook.Save
                End If
            Next
但是对于有些SHAPE（比如说长方形，直线等），sh.Shapes(j).TextFrame.Characters.Text不能访问该对象的值，造成程序出错，
请问如何能解决。
感谢

laoyebin

IF判断
或on error resume next     呵呵，馊主意