按照姓名在固定位置插入照片

 

Sub Test()

       

      With Sheets("入所登记表").Pictures.Insert("G:\【管理科】\【各种档案及报表】\【强戒人员信息档案】\强戒人员照片\总照片\" + Sheets("入所登记表").Range("B3").Value + ".jpg")

 

 

                .ShapeRange.LockAspectRatio = msoFalse

 

                .Placement = xlMoveAndSize

 

                .ShapeRange.Left = Range("j4 ").Left

 

                .ShapeRange.Top = Range("j4 ").Top

 

                .ShapeRange.Height = Range("j4:j7 ").Height

 

                .ShapeRange.Width = Range("j4 ").Width

 

        End With

End Sub