Excel批量插入图片

最新推荐文章于 2024-06-18 13:59:47 发布

xg_an

最新推荐文章于 2024-06-18 13:59:47 发布

阅读量2k

点赞数

分类专栏： Excel 文章标签： excel

本文链接：https://blog.csdn.net/xg_an/article/details/2706783

版权

Excel 专栏收录该内容

23 篇文章 1 订阅

订阅专栏

用excel制作类似准考证的证件时，需要批量插入图片。

Sub 插入图片()
    qs = InputBox("请输入起始文件号：")
    zz = InputBox("请输入终止的文件号：")
    On Error Resume Next
    For i = qs To zz
        ActiveSheet.Shapes.AddPicture _
        "F:/图片备份/6500_3/2008_0723辅导班/新建文件夹/" & Format(i, "0000") & "_94x125.jpg", _
        True, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height
        'ActiveCell.Offset(1, 0).Select
        If Err.Number = 0 Then ActiveCell.Offset(1, 0).Select
        Err.Clear
    Next i
End Sub