نویسنده موضوع: ایجاد ماکرو برای درج تصاویر متناظر در کامنت  (دفعات بازدید: 487 بار)

eleman15

  • کاربر فعال
  • ***
  • ارسال: 117
  • جمع امتیازها: +0/-0
با سلام
فایلی دارم که تعداد زیادی محصول رو لیست کرده.
بنا دارم تصویر هر محصول رو بصورت کامنت در فایل قرار بدم.
بصورت دستی اینکار خیلی طول میکشه و ممکنه اشتباه هم اتفاق بیفته.
خواستم ماکرو ضبط کنم برای این کار که موفق نشدم و ایراد کارم هم نتونستم تشخیص بدم.
کاری که ماکرو میخواستم انجام بده این بود که اسم رو از سلول کپی کنه و عکس سیو شده با همون اسم رو در کامنت ضمیمه کنه.
از بزرگواران کسی میتونه کمک کنه؟

سپاسگزارم از همه ی عزیزان که باب این کمکها رو باز کردن و مجموعه رو گرم تر میکنن.

eleman15

  • کاربر فعال
  • ***
  • ارسال: 117
  • جمع امتیازها: +0/-0
خودم موفق شدم نوشتم
برای استفاده سایر دوستان کد رو اینجا میزارم:

Sub showPic()
For Each cell In Selection
MyPicture = "C:\Users\pu440.NAZARI-SERVER\Desktop\PRODUCTS\AX\" & cell value & ".png
With cell.AddComment
.Shape.Fill.UserPicture MyPicture
end with
next cell

end sub