请教老师一个图片插入的问题，谢谢！

qdzbk · 发表于 2025-1-10 23:13

插入图片问题.zip (118.52 KB, 下载次数: 6)

一剑惊心 · 发表于 2025-1-11 08:18

个人理解，你插入的是路径，而不是实际真正把图片放置在工作表中

z865593849 · 发表于 2025-1-11 08:18

检查插入图片参数

3190496160 · 发表于 2025-1-11 08:20

采用insert方式插入的图片，在03版本之后的版本就只是一个链接，一旦图片移除或者改名就没法显示啦，可以使用AddPicture方式插入就没问题了

赵桢0611 · 发表于 2025-1-11 08:27

因为插入图片是以B3单元格内容命名的，B3单元格内容等于图片文件夹图片名，在G4单元格设置下拉让图片文件夹的图片名显示下拉，让B3=G4，就可以选择了

qdzbk · 发表于 2025-1-11 19:08

本帖最后由 qdzbk 于 2025-1-11 20:14 编辑

谢谢各位老师的提示！已解决。
Sub InsertPictureExample()
Dim ws As Worksheet
Dim imgPath As String
Dim imgCell As Range
Dim pic As Shape
Set ws = ThisWorkbook.Sheets("Sheet1")    ' 设置工作表
Set imgCell = ws.Range("B3")    ' 设置插入图片的单元格位置
imgPath = ThisWorkbook.Path & "\图片\" & imgCell.Value ' 设置图片路径及文件名

For Each pic In ws.Shapes
      If pic.TopLeftCell.Address = imgCell.Address Then
         pic.Delete '删除原图片
      End If
Next pic

ws.Shapes.AddPicture imgPath, msoFalse, msoCTrue, imgCell.Left, imgCell.Top, -1, -1    ' 在指定单元格的左、上位置插入图片
With ws.Shapes(ws.Shapes.Count) ' 按单元格的大小调整图片）
      .LockAspectRatio = msoFalse ' 解锁纵横比
      .Width = imgCell.Width       '设置宽度
      .Height = imgCell.Height    '设置高度
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 请教老师一个图片插入的问题，谢谢！