كيفية إدراج صور متعددة بنفس الحجم في مستند Word؟
عادة ، يمكنك إدراج صور متعددة مرة واحدة في مستند Word بحجمها الأصلي. في بعض الأحيان ، تحتاج إلى ترتيب هذه الصور بنفس الحجم عند الإدراج. في هذه المقالة ، سأتحدث عن كيفية إدراج صور متعددة بنفس الحجم في مستند Word.
قم بإدراج صور متعددة بنفس الحجم في مستند Word برمز VBA
قم بتغيير حجم جميع الصور إلى نفس الحجم بناءً على صورة معينة باستخدام Kutools for Word
قم بإدراج صور متعددة بنفس الحجم في مستند Word برمز VBA
يمكن أن يساعدك رمز vba التالي على إدراج صور متعددة وتغيير حجمها إلى الحجم المحدد مرة واحدة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: أدخل عدة صور بنفس الحجم:
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 مفتاح لتشغيل هذا الرمز ، أ تصفح يتم عرض النافذة ، يرجى تحديد المجلد الذي يحتوي على الصور التي تريد إدراجها ، انظر الصورة:
4. ثم اضغط OK ، ويظهر مربع موجه لتذكيرك إذا كنت تريد تغيير حجم الصور ، انظر لقطة الشاشة:
5. انقر نعم، واكتب أرقام حجم الطول والعرض مفصولة بفاصلة في مربع النص ، انظر الصورة:
6. ثم انقر فوق OK، تم إعادة ترتيب جميع الصور المدرجة بنفس الحجم ، انظر الصورة:
ملاحظة: حجم الوحدة هو بركة في كود فبا.
قم بتغيير حجم جميع الصور إلى نفس الحجم بناءً على صورة معينة باستخدام Kutools for Word
في حالة وجود صور متعددة في مستند Word الخاص بك ، باستخدام كوتولس للكلمةالصورة تغيير حجم الصور ، يمكنك تغيير حجم جميع الصور بسرعة بنفس الصورة المحددة.
كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. |
بعد تثبيت كوتولس للكلمة، يرجى القيام بذلك على النحو التالي:
1. اضبط صورة واحدة بالحجم الذي تريده ، ثم حددها ، ثم انقر فوق كوتولس بلس > تغيير حجم > تغيير حجم الصور مع التحديد، انظر لقطة الشاشة:
2. وقد تم تغيير حجم جميع الصور في مستند Word هذا بنفس الصورة المحددة على الفور ، انظر لقطة الشاشة:
انقر لتنزيل Kutools for Word والتجربة المجانية الآن!
أدوات إنتاجية Word الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...