Excel的VBA粘贴单元格图片代码

在Excel VBA（Visual Basic for Applications）中，你可以使用`Sheets("SheetName").Range("CellAddress").PastePicture` 方法来粘贴图片到指定的单元格。这里是一个基本的例子：

Sub PasteImage()
    ' 替换 "SheetName" 和 "CellAddress" 为你想要操作的工作表名和单元格位置
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("SheetName")
    
    ' 替换 "ImagePath" 为你图片文件的路径
    Dim imagePath As String
    imagePath = "C:\Path\To\Your\Image.jpg"
    
    ' 粘贴图片
    ws.Range("CellAddress").PastePicture Appearance:=xlScreen, Link:=False ' 可选参数控制图片的显示样式和是否链接原图
End Sub

在这个代码中，你需要将 `"SheetName"` 和 `"CellAddress"` 更改为实际的工作表名和你想粘贴图片的单元格地址，例如 `"Sheet1"`, `A1`。`ImagePath` 则需要替换为你要插入的图片文件的完整路径。