本书技巧114 有个错误

somelong

技巧  在员工登记表中自动插入图片
Sub InsertPic()                                                                               
    Dim iRow As Single, Shp As Shape, Target As Range, dr As String                                                                               
                                                                                   
    dr = ThisWorkbook.Path                                                                               
                                                                               
    With ActiveSheet                                                                               
        For iRow = 4 To .Cells(65536, 1).End(xlUp).Row                                                                        插入图片       
            .Pictures.Insert(dr & "\" & .Cells(iRow, 2) & ".png").Select                                                                        选取图片对象       
            Set Target = .Cells(iRow, 3)                                                                               
            With Selection                                                                               
               .ShapeRange.LockAspectRatio = msoFalse                原书中缺这句命令                        让图片对象不再保持纵横比                       
                .Top = Target.Top + 1                                                                               
                .Left = Target.Left + 1                                                                               
                .Width = Target.Width - 1                                                                               
                .Height = Target.Height - 1                                                                               
            End With                                                                               
        Next                                                                               
    End With