excel批量插图代码

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

SubÅúÁ¿²åÈëͼƬ½øÅú×¢()DimmCellAsRangeDimStrAsStringStr=Path=ThisWorkbook.Path&\160240\'11´º(ͼƬËùÔÚÎļþ¼ÐÃû³Æ)OnErrorResumeNextForEachmCellInRange(b5:b&Range(d65536).End(xlUp).Row)'d(ÐèÅú×¢ÁÐ)IfDir(Path&mCell.Value&.jpg)ThenmCell.ClearCommentsWithmCell.AddComment.Shape.Fill.UserPicturePath&mCell.Value&.jpgEndWithmCell.Comment.Shape.Height=160'160(ÉèÖøß)mCell.Comment.Shape.Width=240'240(ÉèÖÿí)ElseIfStr=ThenStr=mCell.ValueElseStr=Str&,&mCell.ValueEndIfEndIfNextmCellEndSub

1 / 1
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功