vba抛出“运行时错误'1004'方法'标题'对象'按钮'失败”,但仅限于mac

时间:2017-08-07 11:52:50

标签: excel vba macos excel-vba

所以我自动化了excel工作簿的某些部分。在代码中,我向某些工作表添加了一些按钮。在使用mac的同事遇到以下错误之前,一切似乎都运行得很好:运行时错误'1004':对象'Button'的方法'Caption'失败

我检查了它,显然错误只发生在1个特定的工作表上。我尝试删除该特定工作簿并创建一个新工作簿,但错误仍然发生在该特定工作表上。

这是我的代码:

Dim btn As Button
Set btn = Sheet2.Buttons.Add(400, 5, 100, 50)
With btn
    .OnAction = "add_feature_click"
    .Caption = "ADD FEATURE"
    .name = "add_feature"
End With
Set btn = Sheet2.Buttons.Add(510, 5, 100, 50)
With btn
    .OnAction = "add_phase_click"
    .Caption = "ADD PHASE"
    .name = "add_phase"
End With
Set btn = Sheet3.Buttons.Add(400, 5, 100, 50)
With btn
    .OnAction = "Add_Feature_click"
    .Caption = "ADD FEATURE" '<--
    .name = "add_feature"
End With
Set btn = Sheet3.Buttons.Add(510, 5, 100, 50)
With btn
    .OnAction = "add_phase_click"
    .Caption = "ADD PHASE"
    .name = "add_phase"
End With

因此,在“Sheet2”中创建按钮工作正常,但在mac上执行时会在“Sheet3”上抛出错误。 (相同的代码用于向6个不同的工作表添加按钮,并在所有其他工作表中正常工作)

编辑:错误发生在带注释箭头的行

知道如何解决这个问题吗?

1 个答案:

答案 0 :(得分:0)

如果您在错误处停止代码,然后转到创建的按钮,右键单击和属性,当您尝试手动设置标题时会发生什么?