בקשת מידע | הרצת פקודה בוורד

[AVIVI]

יש לי מסמך וורד עם 300 תמונות
ואני רוצה שכולם יסתדרו בגודל שווה
האם ישנה דרך להריץ פקודה שתסדר את כולם?
תודה לעונים

[AVIVI]

@AVIVI תודה לכל מי שרצה לעזור (מאמין שהיה הרבה)
בסוף עזרתי לעצמי דרך האתר הזה (פתוח בנטפרי) שם הבוט כתב לי את הקוד הבא
מצרף כאן את הקוד בשמחה

מי שרוצה להשתמש יכניס את הקוד הבא שמוגדר על 20 ס"מ גובה ו-10 ס"מ רוחב שנו את זה כרצונכם

תהנו!!

Sub ResizeAllImages()
    Dim pic As Object
    For Each pic In ActiveDocument.InlineShapes
        pic.LockAspectRatio = msoFalse
        pic.Height = CentimetersToPoints(20) ' Convert cm to points
        pic.Width = CentimetersToPoints(10)
    Next pic

    Dim shp As Shape
    For Each shp In ActiveDocument.Shapes
        shp.LockAspectRatio = msoFalse
        shp.Height = CentimetersToPoints(20)
        shp.Width = CentimetersToPoints(10)
    Next shp

    MsgBox "ברוך השם הצלחתי לשנות לך את כל התמונות במסמך! המשך עריכה מהנה", vbInformation
End Sub