Sub 按照当前行A列的图片名称插入图片到H列()
AAA = Selection.Row
Range("H" & AAA).Select
Selection.RowHeight = 37 '指定行高
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("A" &
Selection.Row) & ".JPG").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 84.75
Selection.ShapeRange.Width = 150.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.ScaleWidth 0.73, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.73, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.24, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
Range("H" & AAA).Select
End Sub
|
|
susan