Question

宏运行错误438，如何修改？

Sub 对象8_Click()
'
' 对象8_Click 宏
'
' 快捷键: Ctrl+Shift+A
'
Selection.Verb Verb:=xlPrimary
ActiveSheet.Shapes.Range(Array("Object 8")).Select
Selection.Verb Verb:=xlPrimary
ActiveSheet.Shapes("Object 8").IncrementLeft -21.1538582677
ActiveSheet.Shapes("Object 8").IncrementTop -0.7692125984
End Sub

Answer 1

一看就是录制的宏,你在03下再录制个看看哪里不同就知道了。代码上看没有问题的。