已上传附件
A4输入图片名，点击按钮，可自动插入E盘根目录jpg格式图片至D2为左上角的合并单元格内，并自动调整大小
代码如下
Sub 插入图片自动调整大小()
Dim name As String
name = "E:\" & Range("a4") & ".jpg"
Range("d2").Select
ActiveSheet.Pictures.Insert(name).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = ActiveSheet.Range("d2").MergeArea.Width
Selection.ShapeRange.Height = ActiveSheet.Range("d2").MergeArea.Height
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024