在Excel中如何使用VBA根据某一单元格内容自动插入照片 5
1个回答
展开全部
已上传附件
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
追问
还要自动删除之前插入的图片
追答
已经过了一个多月了,你现在才追问
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询