困扰多日的难题，难道只有版主才能解决？

hb1971827

前几日发了一个帖子，没有人能够解决，所以想能否请出高手来解决问题！俺是菜鸟，所以最好在附件中帮我搞定！

先谢谢大家了！！！

hy8888

同一问题,开了新帖

留念

hb1971827

自己顶顶！

dahaocai

请参考：http://club.excelhome.net/thread-381594-1-1.html

并弄了一个

hb1971827

谢谢！但是我点上去没有反应啊！

还有能否B3,B10输入后能直接跳出图片！

还有，这段代码是否有帮助！我是菜鸟，看不懂！呵呵。。。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim p As Shape, c As Range

With Target
If .Row > 2 And .Column = 1 Then
Set rng = .Offset(0, 1) '查找到的图片存放在目标工作表中的第2列
For Each p In Me.Shapes
If Not Application.Intersect(p.TopLeftCell, rng) Is Nothing Then
p.Delete
End If
Next '删除原先的在rng单元格上的所有图片


Set c = Sheet3.Columns(1).Find(.Value, lookat:=xlWhole) '查找表3的第1列
If Not c Is Nothing Then c.Offset(0, 1).Copy rng '图片存放的表3的第2列,由于区域都一样大小，直接复制区域过来即可
End If
End With
End Sub

dahaocai

请把压缩包直接解压后打开“打印.xls”，图片必须在同一文件夹下，修改了一下代码：
Private Sub Worksheet_Change(ByVal Target As Range)               ‘（把Sub 导入LOGO()换成Private Sub Worksheet_Change(ByVal Target As Range)后就能在B3输入号码后自动导入图片了。。。。）
    Dim lngRowHeight As Long
    Dim lngColumnWidth As Long
    Dim objPic As Object
    Dim strFile As String


    lngRowHeight = Sheet3.Rows(3).RowHeight
    lngColumnWidth = Sheet3.Cells(5, 2).Width

    If Sheet3.Cells(3, 13).Value = "" Then
        Exit Sub
    End If
    With Sheet3
    .Pictures.Delete

            strFile = ThisWorkbook.Path & "\" & .Cells(3, 13) & ".gif"
            If Dir(strFile) = "" Then
                Exit Sub
            End If
            Set objPic = .Pictures.Insert(strFile)
            With .Cells(5, 2)
                objPic.Top = .Top
                objPic.Left = .Left
                objPic.Width = .Width
                objPic.Height = .Height
               


            End With
        Set objPic = Nothing
        
        Set objPic = .Pictures.Insert(strFile)
            With .Cells(12, 2)
                objPic.Top = .Top
                objPic.Left = .Left
                objPic.Width = .Width
                objPic.Height = .Height
            End With
        Set objPic = Nothing
    End With
               


End Sub

[ 本帖最后由 dahaocai 于 2011-5-14 12:32 编辑 ]

dahaocai

可再参考：
http://club.excelhome.net/thread-718998-1-1.html

ljw990485

那你找版主去吧

office2008

61030 没这个图，  图片只有0 -----7  
2                               
1        5        3        0        0

这又是什么?

hb1971827

因为我在工作表“logo"中将图片编号，然后就是用vlookup找出数字后找到对应的图片！

请高手帮忙！