请问怎么在Excel里面插入动态图片?

我也是网上找的，你试试看吧，希望对你有帮助

附, 插入SWF文件到EXCEL SHEET的代码,插入完成后,需要根据SWIFF生成的SWF文件大小再调整一下尺寸.

Sub InsertSWF()

Dim Fp

Dim Swf As String

Fp = Application.GetOpenFilename("Flash文件,*.swf", , "选择FLASH文件", , False)

If Fp = False Then Exit Sub

ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _

Link:=False, DisplayAsIcon:=False, Left:=20, Top:=20, Width:= _

450, Height:=300).Select

Swf = Selection.Name

ActiveSheet.OLEObjects(Swf).Object.EmbedMovie = True

ActiveSheet.OLEObjects(Swf).Object.Menu = False

ActiveSheet.OLEObjects(Swf).Object.Movie = Fp

Range("D8").Select

Application.CommandBars("Exit Design Mode").Visible = True

Application.CommandBars("Exit Design Mode").Controls(1).Execute

End Sub

1.右击工具栏-控件工具箱，插入图像控件(image1)

2.Alt+F11,将程序粘贴到本工作表模块中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim strX As String

strX = "F:\图库\" &Selection.Value &".jpg"

If Dir(strX) = "" Then

Image1.Picture = LoadPicture

Exit Sub

Else

Image1.Picture = LoadPicture(strX)

End If

End Sub

3.退出设计模式，点击工作表中单元格就显示图库中该单元格内容为文件名的jpg图片（假设所有图片已保存在F:\图库）

---