VB实现向excel指定单元格插入图片

这个问题也是在论坛上，看到网友提了这个问题，以前考四六级的时候就发现那表里面有学生的个人照片，真是感觉很是羡慕，几次想做，但都没做，这次我静下心，总算完成了这个问题！ 特写到这里与网友们一起分享。

     首先要说明的是图片和excel中的单元格没有任何联系，我们只是把图片准确定位在那里，以便能打印出来，这里我的程序是根据网格的大小来自动调整大小的，废话少说，看程序：

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
   

    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\套题名称清单.xls")
    Set xlSheet = xlBook.Worksheets("Sheet1")
    xlApp.Visible = True

   
    Call Worksheet_SelectionChange(xlSheet.Range("D4"), App.Path & "\he.jpg")
    xlSheet.Columns("B:B").EntireColumn.AutoFit
    xlBook.Close
    xlApp.Quit
    Set xlApp = Nothing
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range, ByVal Pathname As String)
    Dim Pic
    On Error Resume Next
    Target.Select     '定位单元格
    Set Pic = Worksheets("Sheet1").Pictures.Insert(Pathname)   '插入图片
    

   '确定其图片大小，让其适应单元格
    Pic.Height = Target.Height
    Pic.Width = Target.Width
End Sub