Excel VBA，图片框（Image1）加载图片的问题，该怎么办？

Question

如题所述

Answer 1

假设所有需要显示的图片都但在F:\图库\文件夹中，Excel中有一表中输入了这些文件名(不含扩展名)，要求：点击工作表中文件名就显示图片 \r\n1.插入image1控件 \r\n2.Alt+F11,将程序粘贴到本工作表模块中 \r\nPrivate\r\n Sub Worksheet_SelectionChange(ByVal Target As Range) \r\n Dim strX As String \r\n strX = "F:\图库\" & Selection.Value & ".jpg" \r\n If Dir(strX) = "" Then \r\n Image1.Picture = LoadPicture \r\n Exit Sub \r\n Else 　 \r\n Image1.Picture = LoadPicture(strX) \r\n End If 　 \r\nEnd Sub