Sub ShowPicture() Dim picPath As String picPath = "C:\Path\To\YourPicture.jpg" '修改为实际图片路径 ActiveSheet.Pictures.Insert(picPath).SelectEnd Sub
在这个示例中,首先指定了图片的路径,然后通过 ActiveSheet.Pictures.Insert 方法插入图片并选中它你需要将代码放置在相应的模块中,然后在工作表中添加一个按钮,并将宏关联到这个按钮上当点击按钮时,就会显示指定的图片例如,如果图片路径是 "D:\myImage.jpg",则将代码中的路径修改为该路径同时,确保图片文件确实存在于指定的位置以下是将宏关联到按钮上的步骤:打开 Excel 文件,点击“开发工具”选项卡在“控件”组中点击“插入”,选择“按钮(表单控件)”在工作表中合适的位置绘制一个按钮绘制好后会弹出“指定宏”对话框,在列表中选择要关联的宏(如前面提到的“ShowPicture”),然后点击“确定”这样,点击这个按钮时就会执行关联的宏,从而显示图片了(图片来源网络,侵删)
0 评论