EXCEL批量导入图片.doc

《EXCEL批量导入图片.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、EXCEL批量导入图片分类:脚本代码

2、评论:4

3、引用:0

4、浏览:之前在小桥流水看到有人问怎样在Excel批量导入图片，随手写了个宏，没想到今天又有人问我，中午把VBA小改一下图片用1.jpg2.jpg3.jpg...10.jpg12.jpg依次命名图片间隔是2张相邻图片左上角的间隔，例如图片尺寸100像素，间隔写100就刚好紧挨着默认开始位置是以选择框所在位置，例如下图，选择框在B2，图片就从B2开始排列了演示下载，解压到D盘就可以直接执行了，如果打开弹出提示窗口，是因为你Excel安全性设置高，没事，一样可以执行VBA代码如下viewplaincopytoclip

5、boardprint?1.Sub Macro1()  2.' 宏由 CAT 录制，时间: 2007-2-7  3.' 批量导入图片  4.  5.    Dim picPath, picWidth, picHeight, fileExt  6.    picPath = "D:"     '图片存放路径  7.    picN = 4            '图片数量  8.    fileExt = ".jpg"    '图片后缀名  9.    picScale = 30       '图片缩放百分比，不带 %  10.    perPic = 2      

6、    '每行图片数量  11.    xWidth = 202        '图片水平间隔，即水平相邻的图片左上角间隔  12.    xHeight = 152       '图片垂直间隔  13.      14.    Dim x, y  15.    x = 0  16.    y = 0  17.    For i = 1 To picN  18.         ActiveSheet.Pictures.Insert(picPath & i & fileExt).Select  19.         Selection.ShapeRange.Sca

7、leWidth picScale / 100, msoFalse, msoScaleFromTopLeft  20.         Selection.ShapeRange.ScaleHeight picScale / 100, msoFalse, msoScaleFromTopLeft  21.         Selection.ShapeRange.IncrementLeft xWidth * x  22.         Selection.ShapeRange.IncrementTop xHeight * y  23.         If i Mod 

8、perPic = 0 Then  24.            x = 0  25.            y = y + 1  26.        Else  27.            x = x + 1  28.        End If  29.    Next  30.End Sub