תכנות מאקרו בשביל לערוך תמונה בword

[IceScream]

הי,

במסגרת העבודה שלי אני משתמש בword 2007 וכל פעם שאני מעתיק תמונה לתוך הקובץ של הword אני צריך לשנות ידנית את ההגדרות של התמונה ב"עיצוב תמונה" ל-פריסה לריבוע ואת הגובה (מוחלט) ל6 ס"מ.

עכשיו זה מחרפן אותי לגמרי כי במהלך העבודה אני נאלץ כל יום להעתיק עשרות תמונות כאלה ולשנות ידנית....

מקצת קריאה שערכתי עכשיו באינטרנט גיליתי שיש אפשרות כנראה לעשות את זה באמצעות פקודות המאקרו, אבל צריך לכתוב קוד קצר בשביל זה ואני לא מכיר את השפה הזו בדיוק.

אני שוב אומר שאני פשוט צריך לשנות לפריסה לריבוע וגובה (מוחלט) ל6

זה יחסוך לי המון המון זמן וכאב ראש.

תודה מראש!

[שניצל]

אתה יכול להשתמש בהקלטת מקרואים:

http://office.microsoft.com/he-il/word-help/HA010099769.aspx

מה שאני מציע לך לעשות הוא כזה דבר - תבחר את אחת התמונות, תתחיל את ההקלטה, שנה את הגודל של התמונה ואז תעצור את ההקלטה. שמור את המאקרו. המאקרו עכשיו יעבוד תמיד על האלמנט שבחרת (אם אין שום דבר נבחר אז הוא יציג שגיאה). אתה יכול גם ליצור כפתור ו/או קיצור מקלדת שיפעיל את המאקרו.

[IceScream]

ניסיתי את זה אבל זה לא פועל.

מבדיקה שעשיתי באינטרנט הבנתי שאי אפשר להחיל פקודות מאקרו על תמונה.

אם ניסית והצלחת אני אשמח לדעת איך בדיוק, כי כשאני לוחץ על הקלט ועושה הכל בשיטה הרגילה זה לא פועל.

[Elad128]

Sub FormatMyPicture()
    Dim myShape As Shape

    If Selection.InlineShapes.Count > 0 Then
        Set myShape = Selection.InlineShapes(1).ConvertToShape
    ElseIf Selection.ShapeRange.Count > 0 Then
        Set myShape = Selection.ShapeRange(1)
    Else
        MsgBox "Please select a picture first."
        Exit Sub
    End If

    With myShape
        .WrapFormat.Type = wdWrapSquare
        .Height = CentimetersToPoints(6)
        .LockAspectRatio = -msoTrue
    End With
End Sub

עובד?