您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 企业财务 > 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
本文标题:excel批量插图代码
链接地址:https://www.777doc.com/doc-3370449 .html