Vba 图片不'；无法插入Excel文件（但仅作为参考）

图像插入Excel文件后出错

无法显示链接的图像。文件可能已被移动、重命名或删除。验证链接是否指向正确的文件和位置

当我和其他人分享时，将按照宏中提到的代码使用。请允许我向你请求任何帮助。（我正在使用Windows 10和Excel 10）

Sub宏1（）
'
'宏1宏
'
'键盘快捷键：Ctrl+p
'
Dim pictureNameColumn As String'列，在该列中可以找到图片名称
Dim picturePasteColumn作为要粘贴图片的字符串列
Dim pictureName作为字符串的图片名称
将lastPictureRow变暗为使用图片名称的最后一行的长度
变暗图片与要处理的“长”当前图片行相同
Dim pathForPicture作为图片的字符串路径
pictureNameColumn=“A”
picturePasteColumn=“E”
pictureRow=5'从此行开始
'错误处理程序
关于错误转到错误处理程序
'在显示图片名称的列中查找最后一个使用的单元格的行
lastPictureRow=单元格（Rows.Count，pictureNameColumn）.结束（xlUp）.行
'在宏运行时停止屏幕更新
Application.ScreenUpdating=False
pathForPicture=“C:\Users\Nimit\Desktop\Dimensional\Insert Image\”
“循环到最后一排
Do While（pictureRow
ActiveSheet.Pictures.Insert
始终插入图片作为对文件的引用。如果其他计算机上缺少图片文件（共享Excel文件时），则无法显示该图片文件

要将图片永久插入Excel文件，请尝试以下操作：

ActiveSheet.Shapes.AddPicture Filename:="C:\Temp\barcode.png", LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, Left:=Selection.Left, Top:=Selection.Top, Width:=-1, Height:=-1

请看这里以了解更多信息

ActiveSheet.Shapes.AddPicture Filename:="C:\Temp\barcode.png", LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, Left:=Selection.Left, Top:=Selection.Top, Width:=-1, Height:=-1