批量插入图片并调整大小

roych

回复 joyark 的帖子

1、2003版本部分对象或者方法可能在2007版本里已经没有了（刚刚在2007录制宏后，发现没有相应的代码）。但2007版本可以打开2003版本，如果不希望2007弹出安全信息提示的话，可以处理完后再删除宏，另存文件即可。
2、3将里面的相应的代码修改成：
                    Sheets(1).Range("E" & i+2) = Mid(fn, InStrRev(fn, "\") + 1, InStrRev(fn, ".") - InStrRev(fn, "\"))
                    Sheets(1).Range("F" & i+2).Select

roych

回复 pureshadow 的帖子

截几个屏，写点嘛，小妖姐姐……汉字我还是看得懂滴。

gxy1000

看看学习学习

zww3008

谢谢

pureshadow

回复 roych 的帖子

解决了，Win7和XP有点不同而已。

余方方

好东西，谢谢分享

wzh

学习学习！

wgh3g

学习

roych

joyark 发表于 2011-4-24 05:19
回复 roych 的帖子

1.常試過2003可以2007不可以

在选中单元格的前提下，Office 2010（俺用的是英文正版，详见视频录像）是可以用滴。如果出现无法对齐的情况，请删除原先所有图片，点选单元格后再点击按钮试试

joyark

問題:
1.能否鼠标指到图片自动放大
2.鼠标在工作表其地方还原图片大小