تغییر اندازه همه عکس ها در ورد

Question

برای اینکه بتوانید اندازه همه عکس هایی که در ورد موجود است به صورت سریع و یکجا تغییر دهید؛می توان از ماکرو استفاده کرد.

مثلا می خواهیم ارتفاع همه عکس ها 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

سپس دکمه فلش سبز رنگ کوچک را بزنید و منتظر بمانید تا اندازه تمامی عکس ها به سایز مورد نظر شما تغییر کند.

Answer 1

سلام چرا این کد ارور میده؟

Comments

برای منم ارور داد!

Answer 2

چه خطایی؟ متنش را بنویسید

Answer 3

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

خیلیبدردم خورد ممنون

Answer 4

عالی بود واقعن دمتون گرم