2 دوستدار 0 امتیاز منفی
6.8k بازدید
در آفیس توسط
برای اینکه بتوانید اندازه همه عکس هایی که در ورد موجود است به صورت سریع و یکجا تغییر دهید؛می توان از ماکرو استفاده کرد.
مثلا می خواهیم ارتفاع همه عکس ها 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
سپس دکمه فلش سبز رنگ کوچک را بزنید و منتظر بمانید تا اندازه تمامی عکس ها به سایز مورد نظر شما تغییر کند.

4 پاسخ

0 دوستدار 0 امتیاز منفی
توسط
سلام چرا این کد ارور میده؟
توسط
0 0
برای منم ارور داد!
0 دوستدار 0 امتیاز منفی
توسط
چه خطایی؟ متنش را بنویسید
0 دوستدار 0 امتیاز منفی
توسط
عالی بود فقط اینکه این ارقام 50 و 60 فکر کنم به درصد هستند و چون عکسها در پیش فرض متناسب بزرگ می شوند یکی از این ارقام استفاده میشود معمولا دومی
خیلیبدردم خورد ممنون
0 دوستدار 0 امتیاز منفی
قبل توسط
عالی بود واقعن دمتون گرم

سوالات مشابه

برای دسترسی راحت به مطالب سایت ، اپلیکیشن سایت را نصب کنید
و لطفا بعد از نصب امتیاز دهید. با تشکر از حمایت شما
1 امتیاز مثبت 0 امتیاز منفی
1 پاسخ 124 بازدید
2 دوستدار 0 امتیاز منفی
1 پاسخ 79 بازدید
سوال شده 3 آذر 1399 در نرم افزار توسط فاطمه شریفی
0 دوستدار 0 امتیاز منفی
0 پاسخ 299 بازدید

2.4k سوال

2.2k پاسخ

391 دیدگاه

3.5k کاربر

3 نفر آنلاین
0 عضو و 3 مهمان در سایت حاضرند
بازدید امروز: 163
بازدید دیروز: 4666
بازدید کل: 6113804
خوش آمدید
با توجه به تغییر هسته اصلی سایت در صورت مشکل در ورود به سایت از گزینه "فراموشی رمز" استفاده کنید و رمز جدید برای خود بسازید
همچنین می توانید از کانال تلگرام ما هم استفاده کنید : PCcamp@
برای استفاده از تمامی امکانات سایت لطفا از منوی بالای سمت چپ ثبت نام نمایید یا وارد سایت شوید
...