有关图片

hrq145

工作表1和工作表2关联，如果在表2单元双击，表2数值就会显示表1，如何将这个图片代码改成，图片只能有表1才能显示，表2不能
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "F3" Then
        Dim Rng As Range, Pic As Shape
        On Error Resume Next
        Set Rng = Range("J4")  '照片单元格
        Path = ThisWorkbook.Path & "\照片\"           '图片路径
        For Each Pic In Shapes
            If Pic.Name Like "*照片" Then Pic.Delete
        Next
        ActiveSheet.Shapes.AddPicture(Path & Range("F3") & ".JPG", 1, 1, Rng.Left + 2, Rng.Top + 2, 170, 250).Name = Range("F3") & "照片"
    End If
End Sub

1032446692

附件？

hrq145

1032446692 发表于 2013-5-29 12:21
附件？

新建文件夹.zip (145.35 KB, 下载次数: 6)

2013-5-29 12:42 上传

点击文件名下载附件
请看附件

1032446692

hrq145 发表于 2013-5-29 12:42
请看附件

你这是什么附件   就是几张照片而已

hrq145

1032446692 发表于 2013-5-29 12:46
你这是什么附件   就是几张照片而已

那只是测试的照片

hrq145

hrq145 发表于 2013-5-29 12:48
那只是测试的照片

直接把表1 f3改成000*就会显示照片，在表2行双击下，表二的2内容还原表一，图片确显示在表2
我想只有表1才有图片

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "F3" Then
   
3.         Dim Rng As Range, Pic As Shape
   
4.         On Error Resume Next
   
5.         Set Rng = Range("J4")  '照片单元格
   
6.         Path = ThisWorkbook.Path & "\照片"           '图片路径
   
7.         For Each Pic In Shapes
   
8.             If Pic.Name Like "*照片" Then Pic.Delete
   
9.         Next
   
10.         Sheet1.Shapes.AddPicture(Path & Range("F3").Value & ".JPG", 1, 1, Rng.Left + 2, Rng.Top + 2, 170, 250).Name = Range("F3") & "照片"
    
11.     End If
    
12. End Sub
    

复制代码