Excel VBA，图片框（Image1）加载图片的问题，该怎么办？
ExcelVBA，在excel表中插入了一个图片框（Image1），想把已经插入到excel文件中的某个jpg图片设为这个图片框的图片，就是说想把它在图片框中显示出来。...
Excel VBA，在excel表中插入了一个图片框（Image1），想把已经插入到excel文件中的某个jpg图片设为这个图片框的图片，就是说想把它在图片框中显示出来。
展开
1个回答
展开全部
假设所有需要显示的图片都但在F:\图库\文件夹中，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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
