VBA把照片写入单元格

在VBA中，可以使用以下代码将照片写入单元格：

Sub InsertImage()
    Dim img As Picture
    Dim cell As Range
    
    '选择要插入图片的单元格
    Set cell = Range("A1")
    
    '插入图片
    Set img = cell.Parent.Pictures.Insert("C:\Users\UserName\Pictures\Image.jpg")
    img.Top = cell.Top
    img.Left = cell.Left
    img.Width = cell.Width
    img.Height = cell.Height
End Sub

在这个例子中，我们将照片插入到单元格 A1 中。首先，我们定义一个 Range 对象来代表单元格，接着使用 Pictures.Insert 方法将照片插入到单元格中。

在插入图片后，我们可以使用 Picture 对象的属性来设置图片的位置、大小等属性。在这个例子中，我们将图片的位置设置为与单元格的位置相同，并将图片的大小设置为与单元格的大小相同。

请注意，这个示例假设您将照片保存在本地计算机上，并且您需要将文件路径替换为您自己的照片路径。