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

در این مقاله به روش تغییر دادن عرض عکس‌ها در ورد با استفاده از ماکرونویسی اشاره می‌کنیم که بسیار ساده و سریع است.

قبلاً در مقاله‌ای به تنظیم دقیق اندازه‌ی عکس شامل عرض و ارتفاع اشاره کردیم:

اما اگر تعداد زیادی عکس داشته باشید و به راهکار سریع‌تری نیاز داشته باشید، استفاده از ماکرونویسی گزینه‌ی بهتری است که در ادامه بررسی می‌کنیم.

منظور از Micro در نرم‌افزارها و بازی‌ها، انجام چند فرآیند و دستور با فشار دادن یک کلید موس یا کیبورد و یا کلیک روی یک گزینه و دکمه است.

قبلاً مقالاتی در خصوص کاربرد ماکروها در نرم‌افزارهایی نظیر Excel تهیه کردیم:

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

تنظیم عرض عکس‌ها به کمک ماکرو در Word

در نرم‌افزار ورد قابلیت ضبط کردن مراحل یک فرآیند نظیر تغییر دادن عرض عکس‌ها وجود دارد اما در این مقاله مستقیماً کدهای موردنیاز و روش استفاده از ماکروها را بررسی می‌کنیم که بسیار ساده است.

ابتدا فایلی که در آن تعداد زیادی عکس دارید را باز کنید. البته بد نیست قبل از شروع کار، یک کپی از فایل تهیه کنید تا در صورت انجام دادن اشتباه یک مرحله، مشکلی ایجاد نشود. روی اولین عکس کلیک کنید تا انتخاب شود و سپس در نوار ابزار بالای صفحه روی تب View کلیک کنید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

در تب View روی گزینه‌ی Macros کلیک کنید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

پنجره‌ای باز می‌شود. نام ماکرو را به صورت دلخواه و البته مرتبط با تغییر اندازه‌ی عکس‌ها در کادر Macro name تایپ کنید. ما در این مثال نام ماکرو را Resize می‌گذارید. سپس روی دکمه‌ی Create کلیک کنید تا ماکروی جدید ایجاد شود و در لیست اضافه شود.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

به این ترتیب یک پنجره برای کدنویسی ظاهر می‌شود. زبان کدنویسی در این پنجره، VBA یا Visual Basic for Applications است. با زدن کلید Ctrl + A ، تمام کدهای موجود را انتخاب کرده و سپس کلید Del را فشار دهید تا حذف شود.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

حال کدهای موردنیاز برای عمل تغییر اندازه را که در کادر زیر مشاهده می‌کنید، کپی کرده و پیست کنید. دقت کنید که عدد ۵۰۰ و ۶۰۰ به ترتیب عرض و طول عکس‌ها بر حسب پیکسل است. اگر عرض یا Width ابتدا ذکر شده باشد، ارتفاع عکس‌ها یکی می‌شود و اگر ارتفاع یا Height ابتدا در کد ذکر شده باشد، عرض عکس‌ها یکسان می‌شود.. این دو را مطابق با نیاز و سلیقه‌ی خویش تغییر بدهید. اگر از واحد دیگری استفاده می‌کنید، به کدهای بعدی دقت کنید.

Sub resize()

Dim i As Long

With ActiveDocument

For i = 1 To .InlineShapes.Count

With .InlineShapes(i)

.Height = 500

.Width = 600

End With

Next i

End With

End Sub

 توجه کنید که اندازه‌ی عکس‌ها با حفظ نسبت عرض به ارتفاع تغییر می‌کند. به عبارت دیگر عکس فشرده یا کشیده نمی‌شود.

شاید بخواهید اندازه‌ها بر حسب اینچ باشد. در این صورت کد زیر را کپی کرده و پیست کنید و عدد طول و عرض که ۲ اینچ است و روبروی عبارت InchesToPoints و داخل پرانتز ذکر شده را تغییر دهید:

Sub resize()

Dim i As Long

With ActiveDocument

 For i = 1 To .InlineShapes.Count

With .InlineShapes(i)

.Height = InchesToPoints(2)

.Width = InchesToPoints(2)

End With

Next i

End With

End Sub

اگر به دنبال کوچک‌تر یا بزرگ‌تر کردن تمام تصاویر با نسبت مشخصی هستید، از کد زیر استفاده کنید. دقت کنید که عدد ۳۰ و ۴۰، میزان بزرگنمایی بر حسب درصد است. به عبارت دیگر عرض کوچک شده و به ۴۰ درصد حالت فعلی می‌رسد و ارتفاع عکس‌ها نیز به ۳۰ درصد اندازه‌ی فعلی تغییر می‌کند.

Sub resize()

Dim i As Long

With ActiveDocument

 For i = 1 To .InlineShapes.Count

With .InlineShapes(i)

 .ScaleHeight = 30

 .ScaleWidth = 40

End With

Next i

End With

End Sub

در نهایت پس از پیست کردن کدها و تغییر اندازه‌ی عرض و ارتفاع، پنجره‌ی ویژوآل بیسیک را ببندید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

اما چطور ماکروی تعریف شده را اجرا کنیم؟

برای این منظور ابتدا عکس موردنظر را انتخاب کنید و سپس در تب View روی گزینه‌ی Macros کلیک کنید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

و سپس ماکروی ایجاد شده را در لیست انتخاب کرده و روی دکمه‌ی Run کلیک کنید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word

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

برای تغییر دادن چیدمان کافی است روی عکس کلیک کرده و روی آیکون Layout Options کنار آن کلیک کنید و سپس روی چیدمان موردنظر کلیک کنید.

آموزش هم اندازه کردن عرض یا ارتفاع تعداد زیادی عکس در Word