chrisfang的Excel大全

【自动批量贴图】小程序

2012-01-10
作者: chrisfang | 分类: ExcelVBA程序 | 阅读: 2,661 次浏览 | Tags:
声明: 本站文章均属原创,转载时请标明出处

ExcelVBA程序,自动化的贴图小程序,可以自动批量在Excel表格单元格中插入图片,并且自动适应单元格的大小。贴图后可以根据条件进行图片筛选。如果需要支持图片排序,需要修改部分代码。需要启用宏,适用2003~2010版。

【自动批量贴图】小程序

代码如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub addpic()
i = 2
Do While Range("A" & i) <> ""
Range("B" & i).Select
Set mypic = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & Range("A" & i) & ".jpg")
With mypic
.ShapeRange.LockAspectRatio = msoFalse
.Top = Range("B" & i).Top
.Left = Range("B" & i).Left
.Height = Range("B" & i).Height
'如果要支持排序,可改为 .Height = Range("B" & i).Height - 1
.Width = Range("B" & i).Width
'如果要支持排序,可改为 .Width = Range("B" & i).Width - 1
.Placement = xlMoveAndSize
End With
i = i + 1
Loop
Set mypic = Nothing
End Sub

 

有条件的可以自己改造更适合自身情况的代码。

程序下载:

华为网盘下载:http://dl.dbank.com/s0tebaam8u

本地下载:批量贴图工具 (705)

发表评论

电子邮件地址不会被公开。 必填项已用*标注

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>