سلام دوستان
کد زیر رو با ضبط ماکرو بدست آوردم، چطور می تونم کد رو تغییر بدم تا آدرس رو از تکست باکس بگیره؟
از این کد برای درج عکس در سلول می خوام استفاده کنم.
با تشکر
کد زیر رو با ضبط ماکرو بدست آوردم، چطور می تونم کد رو تغییر بدم تا آدرس رو از تکست باکس بگیره؟
از این کد برای درج عکس در سلول می خوام استفاده کنم.
با تشکر
کد:
Range("A1").Select ActiveSheet.Pictures.Insert( _ "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg").Select Selection.ShapeRange.Height = 72 Range("B1").Select
کامنت