excel插入图片(利用vba)
1. 按ALT+F11
2. 插入模块
3. 单元格的大小调整为照片插入的大小
4. 复制下面vba代码,红字前的属性注意修改,红字不需删除
-------------------------------------------------复制分割线以下内容-----------------------------------------------------------------------------
Sub 批量插入图片()
Dim address As String
Dim cellcolumn, piccolumn As Integer
On Error Resume Next
address = “E:\商品图片” '图片文件夹所在的位置,根据图片位置修改
cellcolumn = 1 '设置项目名称所在列,根据自己实际情况修改
piccolumn = 2 '设置插入图片所在第几列,根据自己实际情况修改
Application.ScreenUpdating = False
For I = 2 To Range(“A65536”).End(xlUp).Row '数字2是设置开始填充图片的行号是第二行,根据实际情况修改
Cells(I, piccolumn).Select
Cells(I, piccolumn) = Cells(I, cellcolumn) '图片所在单元格必须有数据才能支持排序
ActiveSheet.Shapes.AddShape(msoShapeRectangle, (Cells(I, piccolumn).Left + 2.5), (Cells(I, piccolumn).Top + 2), (Cells(I, piccolumn).Width - 5), (Cells(I, piccolumn).Height - 4)).Fill.UserPicture address & “” & Cells(I, cellcolumn).Text & “.jpg”
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Rotation = 0#
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Next I
Application.ScreenUpdating = True '打开屏幕更新
End Sub
-----------------------------------------------复制分割线以上内容------------------------------------------------------------------------------
5. 按Ctrl+S,保存(弹出窗口 点击是,确定),关闭窗口,回到要插入图片的sheet
6. 视图—宏—查看宏,选择【批量插入图片】,执行
- 使用VBA在EXCEL中插入图片自定义函数(网络URL/本地URL)
- 利用vba将excel中的图片链接直接转换为图片
- Excel VBA 插入指定图片到单元格并只适应大小
- 在Excel 中用VBA插入图片的方法
- Excel VBA 根据图片名称插入对应图片
- 利用Java+POI 读写Excel文档&向Excel中插入图片
- Excel单元格内插入图片(VBA创建函数,根据图片名称批量插入)
- vba 批量插入图片到Excel
- 在excel中如何利用vba通过网址读取网页title(网址是https的)?
- 利用HTML5 figure标签插入图片
- jxl对Excel的读、写、更新以及插入图片(含代码实例)
- POI实现Excel插入图片
- [VB.NET]再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了
- java POI实现向Excel中插入图片
- 利用脚本将文字插入到图片或进行多个图片拼接
- jxl对Excel的读、写、更新以及插入图片(含代码实例)
- 利用VBA查找excel中一行某列第一次不为空与最后一列不为空的列数
- 利用Apache POI在已有的Excel文件中插入一行新的数据
- Excel 插入图片
- 字符串生成条形码图片并插入到Excel!并打印出来后可以扫描!