让excel照相机拍的图片底部始终与已输入数据的最后一行平齐

13782671637 · 发表于 2018-6-23 18:04

huang1314wei 发表于 2018-6-23 16:52
6楼已经给了你答案

感谢版主的帮助！

WYS67 · 发表于 2018-10-20 12:52

jiaxinl 发表于 2018-6-23 09:06

请问老师：6楼的代码应该复制粘贴在开发工具--插入--过程、用户窗体、模块还是类模块里？我怎么试了多次也不成功呢？

lss001 · 发表于 2018-10-20 21:19

本帖最后由 lss001 于 2018-10-21 10:28 编辑

代码包括→模块1以及类1

图片.zip (26.8 KB, 下载次数: 11)

WYS67 · 发表于 2018-10-20 22:30

lss001 发表于 2018-10-20 21:19
代码包括→模块1以及类1
附件中有注释！

老师：如果我想让图片高度的一半【就是倒序17那一行】和最后一行数据平齐，应该怎样调整高度？

WYS67 · 发表于 2018-10-20 23:33

lss001 发表于 2018-10-20 21:19
代码包括→模块1以及类1
附件中有注释！

老师：因为调整，把N1:T34的34行*7列图片源剪切掉，修改成了B1:E34的34行*4列，拍摄成图片后出现下面问题：1.当A列下面新添数据后，图片底部不再自动和数据最后行平齐；2.关闭工作簿，重新打开后，弹出错误警告；

怎么处理？

图片附件.zip (25.09 KB, 下载次数: 2)

lss001 · 发表于 2018-10-20 23:38

本帖最后由 lss001 于 2018-10-20 23:46 编辑

图片总高度34-17=17即把33改为→17

WYS67 · 发表于 2018-10-21 01:47

lss001 发表于 2018-10-20 23:38
图片总高度34-17=17即把33改为→17

怎样才能不需要保存、关闭后再重启工作簿，只要A列有新数据输入，图片就会自动同步下移？

WYS67 · 发表于 2018-10-21 02:42

lss001 发表于 2018-10-20 23:38
图片总高度34-17=17即把33改为→17

老师：为使附件里的代码能够适应不同环境条件下【自动适应行数列数的图片规格，因为许多时候的不重复数据不一定是30个，列数也不是7个】的要求，恳请老师根据下边附件的实际情况修改代码：

1.能够在输入新数据后，即时同步下移图片底部与数据最后行平齐；
2.H19 代码： Sheets("Sheet1").Rows(Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row - 33).Top 里的列标“A”，是不是B5:B34所在的数据源的列标？如果是，能不能用E1指定表名，E2指定数据源所在列标，E3指定图片名称？这样在不同的工作簿里使用，就不需要频繁修改代码里的参数了【说实话，对于一个一点英语都不会的人，我看见代码里蝌蚪般密密麻麻的英文就头疼】。
3.如果自动化还需要什么参数，请在F1:G3里指定。

图片附件.zip (26.94 KB, 下载次数: 5)

WYS67 · 发表于 2018-10-21 10:21

lss001 发表于 2018-10-20 23:38
图片总高度34-17=17即把33改为→17

老师：18楼里的问题1，按您的吩咐已解决。您看第二、三个问题怎样解决？

lss001 · 发表于 2018-10-21 10:29

WYS67 发表于 2018-10-21 10:21
老师：18楼里的问题1，按您的吩咐已解决。您看第二、三个问题怎样解决？

13楼已经更新附件！

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

[求助] 让excel照相机拍的图片底部始终与已输入数据的最后一行平齐

评分

评分

评分

浏览过的版块