VB导入相片

lzwdj123

如附件中，在C3中输入姓名后，VB自动执行导入 ，但导入的相片为什么不在指定的单元格内？请指教，谢谢。

蓝桥玄霜

请见代码。

jiaxinl

朱荣兴 发表于 2017-7-22 10:14

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pictemp
   If Target.Address <> "$C$3" Then Exit Sub
   On Error Resume Next
   Application.EnableEvents = False
    With Sheet2
     .Pictures(1).Delete
     Set pictemp = .Pictures.Insert(ThisWorkbook.Path & "\\照片\\" & Range("C3") & ".jpg") '插入图片
     pictemp.Placement = xlMoveAndSize '图片随着单元格大小进行改变
      With pictemp.ShapeRange
        .LockAspectRatio = msoFalse '取消图片纵横比锁定
        .Height = Range("k3").MergeArea.Height '设置所插入图片的高度与合并单元格的高度相等
        .Width = Range("k3").MergeArea.Width '设置所插入图片的宽度与合并单元格的宽度相等
        .Top = Range("k3").MergeArea.Top   '设置所插入图片的宽度与合并单元格的顶部相等
        .Left = Range("k3").MergeArea.Left '设置所插入图片的宽度与合并单元格的左边相等
      End With
     Set pictemp = Nothing  '释放图片
  End With
   Application.EnableEvents = True
End Sub

lzwdj123

朱荣兴 发表于 2017-7-22 10:14

搞定，非常感谢

lzwdj123

蓝桥玄霜 发表于 2017-7-22 10:12
请见代码。

非常感谢！！

lzwdj123

朱荣兴 发表于 2017-7-22 10:13
其实，录入信息更的话，用窗体录入可能更方便美观，快捷吧。

就是，可以改进一下。