具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下： OptionExplicit Sub插入图片() OnErrorResumeNext'设置错误处理 Application.ScreenUpdating=False'关闭屏幕刷新 DimrngTempAsRange,kAsRange,picPath$,picTempAsPicture '设定图片名称所在单元格区域 SetrngTemp=Application.InputBox("选择图片名称所在单元格区域：","选择单元格",Type:=8) ForEachkInrngTe