vba在指定单元格插入图片

以下是在VBA中指定单元格插入图片的代码：

Sub InsertPicture()

Dim picPath As String
Dim picRange As Range
Dim picLeft As Single
Dim picTop As Single
Dim picWidth As Single
Dim picHeight As Single

'指定图片路径
picPath = "C:\Users\user\Desktop\picture.jpg"

'指定插入图片的单元格范围
Set picRange = Range("B2")

'指定图片的位置和大小
picLeft = picRange.Left
picTop = picRange.Top
picWidth = picRange.Width
picHeight = picRange.Height

'插入图片到单元格中
With ActiveSheet.Pictures.Insert(picPath)
.Left = picLeft
.Top = picTop
.Width = picWidth
.Height = picHeight
End With

End Sub

在代码中，需要指定图片的路径、插入图片的单元格范围、图片的位置和大小。然后使用Pictures.Insert方法插入图片，并设置图片的位置和大小。最后，在VBA编辑器中运行该宏即可将图片插入到指定单元格中。