كيف يمكن تحويل جميع الصور المرتبطة إلى صور مضمنة في مستند Word؟

عند إرسال مستند Word يحتوي على صور مرتبطة إلى الآخرين، تختفي الصور وتصبح غير مرئية على جهاز المستلم، كما هو موضح في لقطة الشاشة أدناه. فكيف يمكنك تحويل جميع الصور المرتبطة إلى صور مضمنة دفعة واحدة قبل إرسال المستند؟ تقدّم هذه المقالة حلاً فعّالاً باستخدام VBA للتعامل مع هذه المهمة بسهولة.

تحويل الصور المرتبطة إلى صور مضمنة باستخدام كود VBA

---

تحويل الصور المرتبطة إلى صور مضمنة باستخدام كود VBA

يرجى تطبيق كود VBA أدناه لتحويل جميع الصور المرتبطة في المستند إلى صور مضمنة.

1. افتح مستند Word الذي يحتوي على الصور المرتبطة التي تريد تحويلها إلى صور مضمنة. ثم اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module. ثم انسخ كود VBA أدناه إلى نافذةModule. راجع لقطة الشاشة:

كود VBA: تحويل جميع الصور المرتبطة إلى صور مضمنة دفعة واحدة

Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
    Dim xIShape As InlineShape
    For Each xIShape In ActiveDocument.InlineShapes
        With xIShape
            If .Type = wdInlineShapeLinkedPicture Then
                .LinkFormat.SavePictureWithDocument = True
                .LinkFormat.BreakLink
            End If
        End With
    Next
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود.

بعد ذلك، تُحوَّل جميع الصور المرتبطة في المستند الحالي إلى صور مضمنة في آنٍ واحد.