打开工作表自动导入照片求助

zyhui1961

目的：
  本工作表C8单元格是引用“信息表”工作表C5单元格的内容，当C8单元格有字符时，自动导入一张与C8单元格内容相同名称的照片到R3：S11区域；
    当C8单元引用内容变化时，R3：S11照片随C8单元格内容的变化而变化。

3190496160

Sub 插入照片()
Dim i As Integer
For Each k In Sheets("登记表").Pictures
k.Delete
Next
f = ThisWorkbook.Path & "\电子照片\" & CStr(Sheets("登记表").Cells(8, 3)) & ".png"
    If Dir(f) <> "" Then
       Sheets("登记表").Range("r3:s11").Select
       ActiveSheet.Pictures.Insert(f).Select
       With Selection
        Selection.ShapeRange.LockAspectRatio = msoFalse
            .Top = Sheets("登记表").Range("r3:s11").Top + 1
            .Left = Sheets("登记表").Range("r3:s11").Left + 1
            .Width = Sheets("登记表").Range("r3:s11").Width - 1
            .Height = Sheets("登记表").Range("r3:s11").Height - 1
        End With
    End If
End Sub

3190496160

自动导入照片及工作薄.rar (91.03 KB, 下载次数: 16)

2021-7-10 15:24 上传

点击文件名下载附件

zyhui1961

3190496160 发表于 2021-7-10 15:24

谢谢回复！是不是我没表达清楚：登记表工作表C8单元格是引用的“信息表”工作表C5单元格的内容，当C8单元格有字符时，自动导入一张与C8单元格内容相同名称的照片到R3：S11区域；
当“信息表”工作表王四排序到最前面（第5行）时，登记表就是王四的信息，也就是登记表C5是“王四”，这时自动导入的就是王四的照片；
当“信息表”工作重新排序赵六排到最前面（第5行）时，这时登记表C5是“赵六”，这时自动导入的就是赵六的照片，以此类推......

3190496160

zyhui1961 发表于 2021-7-10 15:42
谢谢回复！是不是我没表达清楚：登记表工作表C8单元格是引用的“信息表”工作表C5单元格的内容，当C8单元 ...

呵呵呵，你已经发来120多个帖子了，这点常识我想你应该是明白的吧，已经给你一个按钮在那里了，姓名变化了，点击一下按钮照片不就更新了吗，
你那小汽车，你不踩油门，它会跑吗？？？

3190496160

zyhui1961 发表于 2021-7-10 15:42
谢谢回复！是不是我没表达清楚：登记表工作表C8单元格是引用的“信息表”工作表C5单元格的内容，当C8单元 ...

通过排序来更新登记表数据的做法，本身就是非常不科学的做法，用一个数值调节按钮，在使用一个偏移函数offset不是多方便快捷

zyhui1961

3190496160 发表于 2021-7-10 16:36
呵呵呵，你已经发来120多个帖子了，这点常识我想你应该是明白的吧，已经给你一个按钮在那里了，姓名变化 ...

谢谢你！
我还真不会。就是想不用按钮自动导入照片，非常感谢！

3190496160

zyhui1961 发表于 2021-7-10 17:12
谢谢你！
我还真不会。就是想不用按钮自动导入照片，非常感谢！

也不是不可以做到，但是，你目前的思路实在是不敢恭维，按6楼的建议来也许可能

zyhui1961

3190496160 发表于 2021-7-10 18:22
也不是不可以做到，但是，你目前的思路实在是不敢恭维，按6楼的建议来也许可能

谢谢你大师，已经搞定了，非常感谢！

ctp_119

3190496160 发表于 2021-7-10 16:36
呵呵呵，你已经发来120多个帖子了，这点常识我想你应该是明白的吧，已经给你一个按钮在那里了，姓名变化 ...

改成工作表事件，就能达到坛主的意思！！！