نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

عادة ، يمكنك إدراج صور متعددة في وقت واحد في مستند Word بحجمها الأصلي. في بعض الأحيان ، تحتاج إلى ترتيب هذه الصور بنفس الحجم عند إدخالها. هذه المقالة ، سأتحدث عن كيفية إدراج صور متعددة بنفس الحجم في مستند Word.

إدراج صور متعددة بالحجم نفسه في مستند Word برمز VBA

قم بتغيير حجم جميع الصور إلى الحجم نفسه بناءً على صورة معينة باستخدام Kutools for Word


تغيير حجم كل الصور إلى الحجم نفسه بناءً على واحد محدد:

لتغيير حجم جميع الصور بنفس الحجم ، يجب تغيير حجمها بمعدل واحد تلو الآخر بشكل طبيعي ، ولكن مع كوتولس للكلمة's تغيير حجم الصور ، ﻳﻤﻜﻨﻚ ﺿﺒﻂ ﺟﻤﻴﻊ اﻟﺼﻮر ذات اﻟﺤﺠﻢ ﻧﻔﺴﻪ ﺑﻮاﺳﻄﺔ من ناحية أخرى ، يمكنك أيضًا تغيير حجمها إلى نسبة مئوية محددة حسب حاجتك.

وثيقة ضبط الصور 05

كوتولس للكلمة: مع أكثر من 100 مفيد الوظائف الإضافية في Word ، مجانا لمحاولة مع عدم وجود قيود في أيام 60. انقر للتحميل والتجربة المجانية الآن!


إدراج صور متعددة بالحجم نفسه في مستند Word برمز VBA

يمكن أن يساعدك رمز vba التالي على إدراج صور متعددة وتغيير حجمها إلى حجمك المحدد دفعة واحدة ، يرجى القيام بما يلي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

رمز VBA: إدراج صور متعددة بالحجم نفسه:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، أ صور جاهزة يتم عرض النافذة ، يرجى تحديد المجلد الذي يحتوي على الصور التي تريد إدراجها ، راجع لقطة الشاشة:

وثيقة إدراج صور بنفس حجم 1

4. ثم اضغط OK زر ، وظهر مربع promptf لتذكيرك إذا كنت ترغب في تغيير حجم الصور ، انظر قطة:

وثيقة إدراج صور بنفس حجم 2

5. انقر نعم، واكتب أرقام حجم الارتفاع والعرض المفصولة بفواصل في مربع النص ، راجع لقطة الشاشة:

وثيقة إدراج صور بنفس حجم 3

6. ثم انقر فوق OK، تم إعادة ترتيب جميع الصور المدرجة بنفس الحجم ، راجع لقطة الشاشة:

وثيقة إدراج صور بنفس حجم 4

ملاحظة:: حجم الوحدة هو بركة في رمز VBA.


قم بتغيير حجم جميع الصور إلى الحجم نفسه بناءً على صورة معينة باستخدام Kutools for Word

في حالة وجود صور متعددة في مستند Word الخاص بك ، باستخدام كوتولس للكلمةالصورة تغيير حجم الصور ، يمكنك تغيير حجم جميع الصور بسرعة مثلها مثل الصورة المحددة.

كوتولس للكلمة : مع أكثر من 100 مفيد الوظائف الإضافية Word ، مجانا في محاولة بلا قيود في أيام 60.

بعد تثبيت كوتولس للكلمة، يرجى القيام بذلك على النحو التالي:

1. اضبط صورة واحدة بالحجم الذي تريده ، ثم حدده ، ثم انقر فوق مشروع > تغيير حجم الصور > تغيير حجم الصور مع التحديد، انظر الصورة:

وثيقة إدراج صور بنفس حجم 5

2. وتم تغيير حجم كل الصور في مستند الكلمة هذا تمامًا مثل الصورة المحددة فورًا ، راجع لقطة الشاشة:

وثيقة إدراج صور بنفس حجم 6

انقر لتنزيل Kutools for Word والتجربة المجانية الآن!



أوصت كلمة أدوات الإنتاجية

Kutools لـ Word - أكثر من 100 ميزات متقدمة لـ Word ، وفر وقتك 50٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 6 months ago
    Hi, hello
    I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
    Thanks for that :)