excel表格怎么用动态引用照片

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

我也是网上找的，你试试看吧，希望对你有帮助附， 插入SWF文件到EXCEL SHEET的代码，插入完成后，需要根据SWIFF生成的SWF文件大小再调整一下尺寸. Sub InsertSWF()Dim FpDim Swf As StringFp = 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").SelectApplication.CommandBars("Exit Design Mode").Visible = TrueApplication.CommandBars("Exit Design Mode").Controls(1).ExecuteEnd Sub。

2.在excel中如何用函数将图片动态显示

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：\图库）。