2 دوستدار 0 امتیاز منفی
8.4k بازدید
موضوع آفیس توسط
برای اینکه بتوانید اندازه همه عکس هایی که در ورد موجود است به صورت سریع و یکجا تغییر دهید؛می توان از ماکرو استفاده کرد.
مثلا می خواهیم ارتفاع همه عکس ها 60 و عرض همه آنها 50 باشد :
در صفحه ورد باز شده ، دکمه های Alt+F11 را بزنید تا صفحه مایکرو باز شود.
همانند شکل روی this document کلیک راست کرده سپس insert و سپس Module را بزنید.
حال کد زیر را کپی کرده و در کادر باز شده
Sub resize()
Dim i As Long
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.ScaleHeight = 60
.ScaleWidth = 50
End With
Next i
End With
End Sub
سپس دکمه فلش سبز رنگ کوچک را بزنید و منتظر بمانید تا اندازه تمامی عکس ها به سایز مورد نظر شما تغییر کند.
اگر مشکلت حل شد و دوست داشتی، با این لینک از ما حمایت کن

سوالات مشابه

0 دوستدار 0 امتیاز منفی
1 پاسخ 63 بازدید
1 امتیاز مثبت 0 امتیاز منفی
1 پاسخ 672 بازدید

2.9k سوال

2.6k پاسخ

547 دیدگاه

4.0k کاربر

23 نفر آنلاین
0 عضو و 23 مهمان در سایت حاضرند
بازدید امروز: 7149
بازدید دیروز: 1137
بازدید کل: 8299958
خوش آمدید
...