Question

EXCEL VBA On Error 语句无法正常执行是什么原因

Sub ShapeRange图片缩放() '通用
On Error GoTo err '防止选择的对象不是图片
Selection.ShapeRange.ScaleHeight 2, msofale, msoScaleFromTopLeft '宽度增大到2倍
If Application.Version * 1 < 12 Then
Selection.ShapeRange.ScaleWidth 2, msofale, msoScaleFromTopLeft '高度增大2倍
End If
Exit Sub
err:
MsgBox "请选择图片！", 65, "Error"
End Sub
以上是对图片缩放的代码，但遇到错误时，无法跳转到指定位置。我查看了On Error Resume Next 语句也无法正确执行，请各位大侠指点！
在03版中能正常执行，但13版中不能正常执行，why？

Answer 1

On Error GoTo err      这句有问题

err是vba的关键字，不能使用

可以改成其他的，一般用数字

On Error GoTo  1000    
'……
1000:
'错误处理

Answer 2

我的13版本也是正常的啊 on error 都能执行的

Answer 3

我测试没问题呢，版本问题。可能语法被修改了。

追问

代码肯定是没问题，但就是执行时，有错误时，无法跳转到错误标签，并执行！郁闷。我在03版上能正常执行，13版上，关于防错的语句都不能执行。

代码肯定是没问题，但就是执行时，有错误时，无法跳转到错误标签，并执行！郁闷。我在03版上能正常执行，13版上，关于防错的语句都不能执行。