本文目录一览：
- 1、Excel2013 vba窗体程序如何通过image控件将工作表中得图片（不是本地照片）
- 2、Excel VBA，图片框（Image1）加载图片的问题，该怎么办？
- 3、[image]20 在Excel中某个单元格中，出现如 材料20×30×40木材共50车。 我想分
- 4、在excel中如何用函数将图片动态显示
- 5、在excel中如何让照片显示在image控件中？
Excel2013 vba窗体程序如何通过image控件将工作表中得图片（不是本地照片）
Imagel.Picture =……和 Imagel.PictureSizeMode = …… 这两句中1错成 L了，在代码窗口中肉眼分辨不出来的，将点前面的L改为1即可。
Excel VBA，图片框（Image1）加载图片的问题，该怎么办？
假设所有需要显示的图片都但在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
[image]20 在Excel中某个单元格中，出现如 材料20×30×40木材共50车。 我想分
答：可以使用自定义函数来完成，下图为函数计算结果示例图。
方法：按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去。回到工作表，像使用普通公式一样使用它。
函数参数说明：
=ExtrN(单元格引用,取第几位)
Function ExtrN(Rng As Range, Num As Integer)
Dim regEX As Object
Set regEX = CreateObject("vbscript.regexp")
With regEX
.Global = True
.Pattern = "/d+/.?/d?×/d+/.?/d?×/d+/.?/d?"
ExtrN = Split(.Execute(Rng.Text)(0).Value, "×")(Num - 1)
End With
End Function
在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:/图库）
在excel中如何让照片显示在image控件中？
第一步：你的这个动态的查询表比如在sheet2，原始资料在sheet1（包括照片，身份证），那么你就要将表1中带照片的单元格定义名称，比如照片在表1b列，身份证在a列，打开定义名称对话框，定义名称名字比如为zp，引用位置写入公式=indirect("sheet1!b"match(sheet2!$f$6,sheet1!$a:$a,0)),确定。
第二步：然后激活你插入的image，在编辑栏写=zp，这时当你f6单元格的信息发生变化时，图片自动会随着发生相应的变化。