各位大神如何用VBA编写自动插入图片

zhanghai0602

tzzhonghang 发表于 2019-8-21 08:54
还是一样的

Dim arr$(300)

你的照片有几张?这个最多可以处理300张,如果超出这个数,上面的数组声明把数字改大就可以了
纯粹的没有基础?不会调试?

tzzhonghang

zhanghai0602 发表于 2019-8-21 09:10
Dim arr$(300)

你的照片有几张?这个最多可以处理300张,如果超出这个数,上面的数组声明把数字改大就可 ...

我是外行，照片不超过100张的

zhanghai0602

tzzhonghang 发表于 2019-8-21 10:38
我是外行，照片不超过100张的

原楼已修改,这两句在crJpg 中多余了,已经删除

    If ActiveSheet.Name = "1寸" Then crJpg 6
    If ActiveSheet.Name = "2寸" Then crJpg 4

写入图片名称的时候,将后缀替换掉,这句代码改一下
Cells(K + 2, L) = arr(I)
改成以下
Cells(K + 2, L) = Replace(arr(I), ".jpg", "", , , vbTextCompare)

tzzhonghang

zhanghai0602 发表于 2019-8-21 11:08
原楼已修改,这两句在crJpg 中多余了,已经删除

    If ActiveSheet.Name = "1寸" Then crJpg 6

谢谢大神，达到了效果，感谢

tzzhonghang

zhanghai0602 发表于 2019-8-21 11:08
原楼已修改,这两句在crJpg 中多余了,已经删除

    If ActiveSheet.Name = "1寸" Then crJpg 6

如果在里面添加控件，如何才能不一起删除

zhanghai0602

tzzhonghang 发表于 2019-8-21 15:04
如果在里面添加控件，如何才能不一起删除

1.         If Shp.Type = msoLinkedPicture Then
   
2.             Shp.Delete
   
3.         End If

复制代码

tzzhonghang

zhanghai0602 发表于 2019-8-21 15:12

如果图片的要求是按照另外自己的需求来调整高和宽，而不是跟所在单元格的高和宽一致，如何调整