ایجاد ماکرو برای درج تصاویر متناظر در کامنت

نویسنده eleman15, 20 اکتبر 2021, 09:21

« قبلی - بعدی »

eleman15

با سلام
فایلی دارم که تعداد زیادی محصول رو لیست کرده.
بنا دارم تصویر هر محصول رو بصورت کامنت در فایل قرار بدم.
بصورت دستی اینکار خیلی طول میکشه و ممکنه اشتباه هم اتفاق بیفته.
خواستم ماکرو ضبط کنم برای این کار که موفق نشدم و ایراد کارم هم نتونستم تشخیص بدم.
کاری که ماکرو میخواستم انجام بده این بود که اسم رو از سلول کپی کنه و عکس سیو شده با همون اسم رو در کامنت ضمیمه کنه.
از بزرگواران کسی میتونه کمک کنه؟

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

eleman15

خودم موفق شدم نوشتم
برای استفاده سایر دوستان کد رو اینجا میزارم:

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