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