白洁传全集txt 云盘:Excel VBA代码：批量插入指定目录下图片 | 执子之手与子偕老

来源：百度文库编辑：中财网时间：2024/09/29 10:15:21

公司的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中怎么批量插入？ Excel中如何封装VBA 代码 excel 一个表能插入几个sheet?怎样批量插入? Excel VBA Excel VBA vba excel Excel VBA代码移植到其他计算机的问题这样在excel中批量插入相同数值如何在EXCEL中批量插入相同内容？在EXCEL的表格中批量插入批注如何在EXCEL中批量插入相同内容？我想批量插入一段网页代码，请问该怎么做？怎样在EXCEL的页脚处插入自己指定的页码？如何将Javascript代码插入到指定的dreamweaver中? excel VBA小问题 EXCEL VBA 问题 excel VBA教程电子书 Excel VBA 高手进 EXCEL VBA 基础教程下载 Excel VBA中EXCEL对象？我想在excel中打开、保存、再关闭另一个工作薄，其vba代码怎么写如何将一个Excel表格中的指定的表格中的内容复制到另外一个Excel表格中的指定表格中（最好使用VBA）？ VBA代码是什么？？？？？？？？元素大战vba代码