导入图片

xing_chen · 发表于 2023-2-17 15:24

老师！有表，行高是默认的，页边距上下左右都为1。现需要导入图片到指定单元格位置,即：1.每张图片的左上角在预设的指定单元格，以保持图片间的间距一样；2导入后的图片大小都设置为19。目的保证1张A4纸上有2张图片，并尽量保证每张A4纸上的图片位置划一。敬请老师赐教。谢谢

luikias · 发表于 2023-2-18 10:15

标个眼先，后续回来看看。

wang-way · 发表于 2023-2-18 10:52

本帖最后由 wang-way 于 2023-2-18 14:33 编辑

代码照下面图片的

wang-way · 发表于 2023-2-18 10:55

本帖最后由 wang-way 于 2023-2-18 11:00 编辑

我来试试手吧分类处理就行了

wang-way · 发表于 2023-2-18 10:59

再精简

xing_chen · 发表于 2023-2-18 11:49

wang-way 发表于 2023-2-18 10:59
再精简

谢谢老师！Set shp = .Shapes.addpictue(fp, False, True, 0, .Cells(r + 1, 1).Top, shpwidth, shpheight)此句黄色。可以帮忙看看吗？

		自动登录	找回密码
密码			免费注册

[求助] 导入图片