请教如何使用VB编辑器向EXCEL指定的单元格中插入图片？

Question

请高手详细指点一下，如何使用VB编辑器向EXCEL指定的单元格中插入图片？
多谢！
呃，在编辑器里面写些什么，请将这些语句发上来，谢谢！

Answer 1

Sub insertPic()
Dim i As Integer
Dim FilPath As String
Dim rng As Range
Dim s As String
With Sheet1
For i = 3 To .Range("a65536").End(xlUp).Row
FilPath = ThisWorkbook.Path & "\" & .Cells(i, 1).Text & ".jpg"
If Dir(FilPath) <> "" Then
.Pictures.Insert(FilPath).Select
Set rng = .Cells(i, 3)
With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1
End With
Else
s = s & Chr(10) & .Cells(i, 1).Text
End If
Next
.Cells(3, 1).Select
End With
If s <> "" Then
MsgBox s & Chr(10) & "没有照片!"
End If
End Sub本回答被提问者采纳

Answer 2

插入什么图片，如何指定都要说清楚，否则没法写。编程马虎不得，细节决定好不好用，给个例子最好
看例子吧，你面有注释看如何操作。
http://www.mofile.com/pickup/da2nuuagjeew30y/

Answer 3

应该是：党风廉政建设领导两个责任主体。指在落实党风廉政建设责任制过程中,党委负主体责任，纪委负监督责任。

Answer 4

只能在工作表中插入图片而不是某个单元格（单元格只能设置图案）

Answer 5

可以的