[求助]excel如何引用图片（动态引用）

好为人师

最近作交通工程，需要用到大量图片，如果复制粘贴又太麻烦，请问各位高手

excel如何引用图片，（最好能把图片固定到单元格，再用函数引用），例如A1输入1，B1就出现图片1，A1输入2，B1就出现图片2，A2输入1，B2就出现图片1,以此类推

2楼上的是显示单个图片，也就是在B1达到效果，但我把A1,B1单元格往下拖曳复制，得到的如A2输入2，但B2的图片并不改变，只随A1输入数字改变而改变，请问如何解决？我需要的是A1至A500输入1或2或3或4，对应的b1至b500就出现对应图片1或图片2或图片3或图片4。请问怎样解决，最好能上传附件

放上附件

 

PXVuiRaF.rar (107.68 KB, 下载次数: 226)

2006-11-1 11:30 上传

点击文件名下载附件
[求助]excel如何引用图片（动态引用）

山菊花

用VBA：

右键点击工作表标签查看代码。

aKqC7ofo.rar (113.09 KB, 下载次数: 960)

2006-11-1 12:17 上传

点击文件名下载附件
[求助]excel如何引用图片（动态引用）

好为人师

请问山菊花版主提供的vb代码如何修改？咱不懂编程。比如我要A列（输入图片编号）换成其他列（如D），B列（显示图片）换成其他列（如G），该如何修改?

另外，显示图片的列（如B）能不能先清除B列单元格图片，再复制对应图片，否则A列更改图片编号后，B列对应图片会覆盖在已有图片上，变成两张。

原来代码如下

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count > 1 Then Exit Sub
    If Target.Column > 1 Then Exit Sub
    Dim Rng As Range
    For Each Rng In Target
        If IsNumeric(Rng) Then
            With Range("i" & Int(Rng))
                .Copy Rng.Offset(0, 1)
                If Rng.RowHeight < .RowHeight Then
                    Rng.RowHeight = .RowHeight
                End If
            End With
        End If
    Next
End Sub

[此贴子已经被作者于2006-11-1 13:10:39编辑过]

山菊花

把A列换成D列：

If Target.Column <> 4 Then Exit Sub

 

B列换成G列：

 .Copy Rng.Offset(0, 3)

 

遍历工作表中的图片，根据位置确定是否在目标单元格内。

如果存在，删除它。

 

如果你不会修改代码，请提供行列的准确位置，不要一遍又一遍地写代码。

lionzhong

请问山菊花版主，俺也不懂编程，如果我要把H列“图片编号”改为J列，I列“图片”改为“K"列，我应该怎么做啊？

[em06]

pinda

这个很好用,现有一个问题,如果资料库在SHEET2,这个VBA怎么改?

hp1913

版主：你好！
     我看了aKqC7ofo.rar 这个文件，能否在第一张表上A、B两列有代码、照片，而在第二张表上的A、 B两列上调用，表达式如何写出。
     请上传一个文件。
     谢谢了

wjh_sd1999

看一下。正常的情况下应该是无法显示图片。通过VB应该可以实现

alisakura

hp1913 发表于 2009-12-1 09:51
版主：你好！
     我看了aKqC7ofo.rar 这个文件，能否在第一张表上A、B两列有代码、照片，而在第二张表上 ...

恳请高人上传一个吧。

moz1992

山菊花 发表于 2006-11-1 12:17
用VBA：右键点击工作表标签查看代码。

http://club.excelhome.net/thread-1523227-1-1.html

你好，老师能过来指导一下吗？困惑好几天了。