如何实现批量根据单元格数据，引用图片？

moz1992

如何实现批量根据单元格数据，引用图片？

订单表： 根据 编号 可以引用 产品图片 对应产品图

小白只知道一个个定义图片名称比较繁琐，大概要需要500个产品引用，希望有大师能帮忙解决。十分感谢。

moz1992

这是我的附件。

约定的童话

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range
  Dim Shp As Shape
  If Target.Column <> 1 Then Exit Sub
  On Error Resume Next
  Set Rng = Sheets("库").Cells.Find(Target.Value).Offset(, 1)
  If Rng Is Nothing Then Exit Sub
  Sheets("预览页").Select
  For Each Shp In Sheets("库").Shapes
    If Shp.TopLeftCell.Address = Rng.Address Then
      Target.Offset(, 1).Select
      Shp.Copy
      ActiveSheet.Pictures.Paste
    End If
  Next Shp
End Sub
拿去改改用吧

moz1992

约定的童话 发表于 2020-2-27 08:39
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range
  Dim Shp As Shape

你好，谢谢，你有样板我参考一下吗？