نحوه درج تصویر در سلول با استفاده از VBA در اکسل

شما به راحتی می توانید تصاویر را در صفحات گسترده اکسل قرار دهید و آنها را با کد ماکرو ویرایش کنید. در اینجا نحوه درج یک عکس در یک سلول با استفاده از VBA در اکسل آورده شده است .

Visual Basic for Applications که به اختصار VBA نامیده می شود، شکلی از ویژوال بیسیک 6 است که در برنامه های مایکروسافت آفیس ادغام شده است. از طریق کدنویسی، VBA به شما امکان می دهد وظایف را در برنامه های آفیس، از جمله اکسل، خودکار کنید. در برخی موارد، حتی می توانید با استفاده از VBA ویژگی های جدیدی را به Excel اضافه کنید.

حتی اگر برای استفاده از VBA باید با کد کار کنید، این به این معنی نیست که VBA پر از حروف و اعداد است. با VBA در اکسل، می‌توانید یک ماکرو ایجاد کنید که به شما امکان می‌دهد یک تصویر را در یک سلول یا محدوده سلولی وارد کنید. در اینجا چیزی است که شما باید در مورد درج تصاویر در سلول های اکسل با استفاده از VBA بدانید.

نحوه درج تصاویر در سلول ها با استفاده از VBA در اکسل

• 1. ابزار Developer را روشن کنید
• 2. ایجاد ماکرو و درج کد
• 3. تقسیم کد

برای ایجاد یک ماکرو که یک تصویر را با استفاده از VBA در سلول اکسل قرار می دهد، واقعاً به دانش پیشرفته ویژوال بیسیک نیاز ندارید. تنها کاری که باید انجام دهید این است که ابزارهای Developer را روشن کنید، یک ماکرو ایجاد کنید و کد مناسب را جایگذاری کنید. البته می توانید تصاویر را بدون استفاده از VBA نیز در اکسل قرار دهید. با این حال، در این مقاله به VBA می پردازیم.

1. ابزار Developer را روشن کنید

برای استفاده از VBA در اکسل، باید ابزار Developer را فعال کنید. این عمل زبانه Developer را در نوار فعال می کند که به طور پیش فرض غیرفعال است.

1. اکسل را باز کنید .
2. به منوی File بروید .
3. روی گزینه ها در پایین صفحه کلیک کنید . پنجره Excel Options ظاهر می شود.
4. در گزینه‌های اکسل، به تب Customize Ribbon بروید .
5. در برگه‌های اصلی ، برنامه‌نویس را بررسی کنید .

اکنون ابزارهای توسعه دهنده، از جمله دسترسی به VBA، فعال هستند. لازم نیست هر بار که می خواهید از VBA در اکسل استفاده کنید این کار را انجام دهید. ابزارهای برنامه نویس همیشه فعال خواهند بود تا زمانی که آنها را غیرفعال کنید.

2. ایجاد ماکرو و درج کد

1. در اکسل، به تب Developer بروید .
2. در بخش Code، Macros را انتخاب کنید .
3. در پنجره جدید، نام ماکرو خود را در نام ماکرو وارد کنید . مقاله از insertPhotoMacro استفاده خواهد کرد .
4. روی ایجاد کلیک کنید .

پس از کلیک بر روی Create، پنجره VBA باز می شود و کد ماکرو شما را نمایش می دهد. در حال حاضر، کد از 2 خط تشکیل شده است: یک Sub برای شروع ماکرو و یک End Sub برای پایان دادن به آن.

یک کد کوچک به این ماکرو اضافه کنید. خط کد زیر را بین دو خط اضافه کنید:

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

کد نهایی به شکل زیر خواهد بود:

لازم نیست نگران ذخیره این فرآیند باشید. هر تغییری که در VBA ایجاد می کنید بلافاصله ذخیره می شود.

حالا وقت آن است که کد را در عمل ببینید:

1. پنجره VBA را ببندید.
2. به تب Developer در اکسل بروید.
3. ماکروها را از قسمت Code انتخاب کنید .
4. ماکرویی را که به تازگی ایجاد کرده اید برجسته کنید.
5. روی Run کلیک کنید .

اکنون پیامی باز می شود که از شما می خواهد فایل تصویری را که می خواهید درج کنید پیدا کنید. عکس را انتخاب کنید، سپس روی Open کلیک کنید. اکنون تصویر را در سلول A1 خواهید دید.

توجه داشته باشید، اکسل تصویر را کوچک می کند تا در سلول A1 قرار گیرد. می‌توانید آن را تغییر دهید و کد را برای درج تصاویر در سلول‌های دیگر، حتی طیف وسیعی از سلول‌ها، تغییر دهید. در قسمت بعدی کد را جدا کرده و پارامترها را توضیح می دهیم.

3. تقسیم کد

برای اینکه کد VBA همانطور که می خواهید کار کند، باید آن را درک کنید. هنگام انجام این کار، می توانید کد را تغییر دهید تا تصاویر را در هر سلولی با هر اندازه ای وارد کنید.

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

هنگامی که کد شروع می شود، از دستور Dim برای تعیین نوع متغیر استفاده می شود. ما دو نوع متغیر داریم: photoNameAndPath و photo . ابتدا متغیر و سپس تصویر.

از آنجا، متغیر photoNameAndPath اجرا می شود و برنامه ای را برای دریافت محل فایل عکس باز می کند. این کار از طریق Application.GetOpenFileName انجام می شود . پارامتر عنوان اختیاری است. محتوای داخل آن به عنوان نام پنجره نمایش داده می شود.

با استفاده از If photoNameAndPath = False سپس Exit Sub ، اگر آدرس نامعتبر یا خالی داده شود، فرآیند پایان می یابد. با این حال، اگر یک فایل مناسب ارائه شود، Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) نشان می دهد که تصویر باید به عنوان یک متغیر همانطور که در ابتدا تعریف شده است تنظیم شود. در کاربرگ فعال درج خواهد شد.

در نهایت از With photo و 5 خط بعد از آن برای تعیین محل عکس استفاده کنید. Left و .Top به موقعیت شروع اشاره دارند، در حالی که .Width و .Height به موقعیت پایانی اشاره دارند. اگر قصد درج تصاویر را در سلول یا محدوده دیگری دارید، این خطوطی هستند که باید تغییر دهید.

.Placement نشان می دهد که اندازه تصویر باید به تناسب سلول تغییر کند یا شکل آزاد درج شود. با تنظیم آن بر روی 1 ، اندازه آن مطابق با سلول تغییر می کند.

در نهایت کد بالا از End With و سپس End Sub برای بستن ماکرو استفاده می کند. اکنون می توانید متغیرهای photoNameAndPath و photo را به هر نام دیگری که دوست دارید تغییر دهید. فقط به یاد داشته باشید که نام ها را در سراسر کد ثابت نگه دارید.

در بالا نحوه استفاده از VBA برای درج تصاویر در سلول های اکسل آمده است . امیدوارم مقاله برای شما مفید باشد.