vba插入当前路径下任意名称的png格式图片到指定单元格

以下是一个通过 VBA 在指定单元格中插入当前路径下任意名称的 PNG 格式图片的示例代码：

Sub InsertImageToCell()
    Dim imagePath As String
    Dim cell As Range
    Dim picture As Picture

    ' 获取当前路径下的任意 PNG 图片路径
    imagePath = Application.ActiveWorkbook.Path & "\" & "image.png"

    ' 指定要插入图片的单元格
    Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 插入图片
    Set picture = ThisWorkbook.Sheets("Sheet1").Pictures.Insert(imagePath)
    With picture
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = cell.Left
        .Top = cell.Top
        .Width = cell.Width
        .Height = cell.Height
    End With

    ' 调整单元格的行高和列宽以适应图片
    cell.EntireRow.RowHeight = picture.Height
    cell.EntireColumn.ColumnWidth = picture.Width
End Sub

请注意，代码中的 Sheet1 是示例中的工作表名称，你需要根据你实际的工作表名称进行修改。另外，代码中的 image.png 是示例图片的名称，你需要将其替换为你实际的图片名称。

你可以将上述代码复制到 VBA 编辑器中的一个模块中，并运行 InsertImageToCell 子过程，即可将图片插入到指定的单元格中