Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 运行时错误';1004';在自选图形命令中显示错误_Excel_Vba - Fatal编程技术网

Excel 运行时错误';1004';在自选图形命令中显示错误

Excel 运行时错误';1004';在自选图形命令中显示错误,excel,vba,Excel,Vba,我有一个模板,当按下主菜单上的按钮时,它会创建一个新选项卡。在这个新选项卡上,它从主菜单中引入一些数据,并创建两个按钮(自选图形),这两个按钮还可以为每个按钮指定文本和宏,因为每个按钮的操作都不同。但是,当它到达autoshape命令时,它返回一个运行时错误“1004”。我有以前版本的电子表格,它没有新电子表格的所有功能,但是如果我运行以前版本的功能,它可以正常工作。如果我复制并粘贴特定于此功能的VB,它仍然会出现运行时错误。使用与先前版本完全相同的代码制作自选图形没有问题。。。。。我不知所措

我有一个模板,当按下主菜单上的按钮时,它会创建一个新选项卡。在这个新选项卡上,它从主菜单中引入一些数据,并创建两个按钮(自选图形),这两个按钮还可以为每个按钮指定文本和宏,因为每个按钮的操作都不同。但是,当它到达autoshape命令时,它返回一个运行时错误“1004”。我有以前版本的电子表格,它没有新电子表格的所有功能,但是如果我运行以前版本的功能,它可以正常工作。如果我复制并粘贴特定于此功能的VB,它仍然会出现运行时错误。使用与先前版本完全相同的代码制作自选图形没有问题。。。。。我不知所措

导致错误的确切代码为:

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 603.75, 7.5, 156.75, 49.5).Select
我已经将以前版本中的代码复制到当前版本,但仍然会遇到相同的错误

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 603.75, 7.5, 156.75, 49.5).Select

我希望创建一个圆角矩形形状,以便在用户数据输入后为其分配文本和宏,以实现一些附加功能。

我想我发布这篇文章的时间太早了大约10分钟。我在另一个问题上发现,我需要确保在“工具\参考”下的VBA菜单中选中了Microsoft Office 15.0对象库。我这样做了,它解决了这个问题

我想我发这篇文章快了10分钟。我在另一个问题上发现,我需要确保在“工具\参考”下的VBA菜单中选中了Microsoft Office 15.0对象库。我这样做了,它解决了这个问题