求自动调用文件夹图片

61560868

求方法把学生相片自动导入到相片框内，学生更改时，相片也自动更改(以B6单元格的数据来导入）。.谢谢

孤单无所谓

要说单提取图片 这个我还能做一下。。如果说表内数据跟着H1的内容走。一看就头晕。建议楼主把问题拆开来让回答者 好答点。。。

61560868

跟着H1的内容走，这个不用理，能以B6的数据来调用图片就可以，学生的相片是以学号来命名的，

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$H$1" Then Exit Sub
   
4. Dim rng As Range, myPath$, shp
   
5. Dim ML, MT, MW, MH
   
6. myPath = ThisWorkbook.Path & "\相片"
   
7. Set rng = Cells(3, 10).Resize(3, 1)
   
8. With rng
   
9.     ML = .Left
   
10.     MT = .Top
    
11.     MW = .Width
    
12.     MH = .Height
    
13.     For Each shp In ActiveSheet.Shapes
    
14.         If shp.Type = msoAutoShape Then
    
15.                 shp.Delete
    
16.         End If
    
17.     Next
    
18.     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    
19.             Selection.ShapeRange.Fill.UserPicture _
    
20.                 myPath & [b6].Value & ".jpg"
    
21. End With
    
22. [b5].Select
    
23. End Sub
    

复制代码

61560868

谢谢！你做的非常好！我想问一下，在加入代码前要做什么?好像直接加入代码不行。

61560868

好像好错，代码错误

ahny

老师你好，你的这段vba解决了我的大问题，以前我是用循环语句解决了此类表单打印的工作需求，但是一直没能解决图片批量替换打印的问题。在此致以最崇高的敬意和佩服！
有个小小的要求，能不能在程序段后面加以说明，教教我这个程序盲？谢谢。
QQ：470067021
信箱：ahny2573@163.com

ahny

蓝桥玄霜老师的程序是正确的，非常方便

huogaoqq

蓝桥玄霜 发表于 2012-12-25 20:35

小弟学习了好用，大师级人物厉害

jon1991

蓝桥玄霜 发表于 2012-12-25 20:35

老师，您好，在下面这个调用中，如果指定图片没有找到，返回一张固定图片（如图片名为11.jpg），怎么添加代码。

•     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select            Selection.ShapeRange.Fill.UserPicture _                myPath & [b6].Value & ".jpg"