图片引用

lor染

图片没有根据货号改变，这个怎么破？求解。

rui12138

楼主，你是说图片引用不成功，还是下面的图片，不能根据对应该行号的货号改变。
图片引用不成功，可能是因为图片没有关联到定义的名称上。
如果需要根据对应行的货号改变图片。我开始想到将查找单元格相对引用。后来发现行不通。看看大神们有没有什么方法。

jiaxinl

请查收动态图和附档

jiaxinl

请查收附档

lor染

jiaxinl 发表于 2017-6-26 15:12
请查收附档

没看懂，是用了宏吗？图片那里是怎么设置的？...一个从来没用过宏之类的小白求教

jiaxinl

lor染 发表于 2017-6-27 12:20
没看懂，是用了宏吗？图片那里是怎么设置的？...一个从来没用过宏之类的小白求教

用了宏，放在了“引用”工作表中具体的代码及注释
如下：
Private Sub Worksheet_Change(ByVal Target As Range)  '工作表该变事件，当“引用”工作表中单元格内容有变化时，则执行
If Target.Column = 1 Then '如果A栏的单元格有变化,则执行下面的语句
Application.ScreenUpdating = False  '关闭屏幕刷新
Dim s As Shape, x As Range  '定义s为图像,x为单元格
For Each s In Sheet1.Shapes  '再“引用”工作表中的所有图片中循环
    If s.Type = 13 Then s.Delete  '如果图片的类型为13时，则删除图片
Next s
For Each x In Sheet1.Range("A2", [A1048576].End(3))  '再“引用”工作表中的A2到A栏中非空单元格的区域中循环
'如果“引用”工作表中货号在“数据源”工作表的A栏中能查找到，则把“数据源”工作表的A栏中对应的图片复制到“引用”工作表中图片栏中
    If Not Sheet2.[A:A].Find(x, , , 1) Is Nothing Then Sheet2.[A:A].Find(x, , , 1).Offset(, 4).Copy x.Offset(, 4)
Next x
Application.ScreenUpdating = True  '启用屏幕刷新
End If
End Sub

lor染

jiaxinl 发表于 2017-6-28 08:33
用了宏，放在了“引用”工作表中具体的代码及注释
如下：
Private Sub Worksheet_Change(ByVal Target  ...

我研究研究，谢谢哈

lor染

jiaxinl 发表于 2017-6-28 08:33
用了宏，放在了“引用”工作表中具体的代码及注释
如下：
Private Sub Worksheet_Change(ByVal Target  ...

好的，我看下能不能理解，谢谢哈

896953185

数据源所有图片大小尺寸一样为什么引用到其它表格大小不尺寸一样呢？

lor染

896953185 发表于 2017-7-4 09:12
数据源所有图片大小尺寸一样为什么引用到其它表格大小不尺寸一样呢？

会不会是两个表的图片单元格没有设置成一样的大小？