我一直在搜索很多此错误，但找不到解决方案，得到以下错误：
错误1004定义应用程序或对象
使用以下代码：
Sheets("sheet1").Shapes(shapeName).OnAction = macroName
更多信息：
Call SetButtonActive("get_quest_1", "GetQuest")
Function SetButtonActive(shapeName As String, macroName As String)
Sheets("sheet1").Shapes(shapeName).OnAction = macroName
Sheets("sheet1").Shapes.Range(Array(shapeName)).ShapeStyle = msoShapeStylePreset41
With Sheets("sheet1").Shapes.Range(Array(shapeName)).Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
End Function
的名称MacroName应以逗号分隔，以下代码已起作用：
Sub TestMe()
ThisWorkbook.Worksheets(1).Shapes(1).OnAction = "MacroName"
End Sub
Sub MacroName()
Debug.Print "TEST"
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句