Question

在Excel中如何使用VBA根据某一单元格内容自动插入照片

如图：在D2自动插入E盘以A4内容为名称的图片，且大小为合并D2：F7后的大小

Answer 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

追问

还要自动删除之前插入的图片

追答

已经过了一个多月了，你现在才追问