首页 > Excel > Excel VBA代码:批量插入指定目录下图片

Excel VBA代码:批量插入指定目录下图片

2009年5月15日

公司的MM们给客户的订单经常要插入产品图片,一张一张的插入,而且还要调整大小十分的麻烦,于是写了这个VBA代码。
使用方法:在要插入图片的文件夹里新建一个Excel文件,打开这个Excel文件,在要插入图片的单元格里填上图片文件名(不要扩展名),选中要插入图片的单元格,修改单元格的大小,运行宏代码。代码如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub 批量插入图片()
' 宏由 www.pootor.com 录制,时间: 2010-5-20
' Dir函数批量获取指定目录下所有文件名和内容
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
Dim MR As Range
For Each MR In Selection
If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then
MR.Select
ML = MR.Left
MT = MR.Top
MW = MR.Width
MH = MR.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Selection.ShapeRange.Fill.UserPicture _
ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片
End If
Next
Set MR = Nothing
Application.ScreenUpdating = True '开启屏幕更新
End Sub
作者: 分类: Excel 标签: , ,
声明:本站遵循 署名-非商业性使用-相同方式共享 3.0 共享协议. 转载请注明转自 执子之手与子偕老
  1. Amy.shang
    2010年8月12日11:43 | #1

    因为工作需要,向你请教下VBA,
    拍了有一百多张零件照片,重命名,然后插入相对应的工作表里(有一个零件号清单表),

  2. Amy.shang
    2010年8月12日11:44 | #2

    QQ337684428

  3. Amy.shang
    2010年8月12日11:47 | #3

    QQ:337684428

  1. 本文目前尚无任何 trackbacks 和 pingbacks.