excel2003版本的文件用EXCEL2007打开是兼容模式打开.运行以下代码出错,求大神

hong9187

我写了一段代码,主要是批量添加批注,批注的背景是TEMP.JPG图片,在EXCEL2003版本打开XLS文件,和EXCEL2007版本中打开xlsx后,运行都没有问题,
但在EXCEL2007用兼容模式打XLS文件时运行,打开就出错,出错主要是在设定批注长宽时报错.
如果加一行  On Error Resume Next
批注可以加上背景,就是批注大小是默认的,没有达到指定的长宽比例.


With cell.AddComment
                        .Visible = True
                        .Text Text:=""
                        .Shape.Select True
                        With Selection.ShapeRange
                             .Fill.UserPicture "C:\WINDOWS\temp.jpg"
                             .ScaleWidth w / 3.39, msoFalse, msoScaleFromTopLeft  这一行开始报错.
                             .ScaleHeight H / 2.09, msoFalse, msoScaleFromTopLeft
                        End With
                        cell.Offset(1, 0).Select
                        .Visible = False
                    End With

hong9187

自己顶一下.没有大神来帮我解答一下吗

hong9187

自己顶一下.没有大神来帮我解答一下吗