按照姓名在固定位置插入照片 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 |
|