İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində eyni ölçülü birdən çox şəkli necə əlavə etmək olar?

Normal olaraq Word sənədində orijinal ölçüsü ilə eyni anda birdən çox şəkil əlavə edə bilərsiniz. Bəzən daxil edərkən bu şəkilləri eyni ölçüdə təşkil etməlisiniz. Bu yazı, bir Word sənədində eyni ölçüdə birdən çox şəkəri necə əlavə etmək haqqında danışacağam.

VBA koduyla Word sənədində eyni ölçülü birdən çox şəkil çəkin

Word üçün Kutools ilə müəyyən bir şəkil əsasında bütün şəkilləri eyni ölçüdə yenidən ölçün


Bütün şəkilləri seçilmiş birinə əsasən eyni ölçüyə bərpa edin:

Bütün şəkilləri eyni ölçüyə düzəltmək üçün, onları bir-bir təkrarlayaraq, normal olaraq ölçməlisiniz Word üçün Kutools's Şəkilləri yenidən ölçün xüsusiyyətindən istifadə edərək, bütün şəkilləri eyni ölçüyə görə seçə bilərsiniz. Digər tərəfdən, istədiyiniz kimi xüsusi bir yüzdə də ölçüsünü dəyişə bilərsiniz.

doc 05 şəkillərini tənzimləyin

Word üçün Kutools: 100-dən çox 60 lazımlı Word eklentisi ilə, XNUMX gün ərzində heç bir məhdudiyyət olmadan cəhd edin. İndi yukle və pulsuz sınaq üçün tıklayın!


VBA koduyla Word sənədində eyni ölçülü birdən çox şəkil çəkin

Aşağıdakı vba kodu birdən çox şəkilləri əlavə etməyə və onları müəyyən bir ölçüyə birbaşa dəyişməyə kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

VBA kodu: eyni ölçüdə birdən çox şəkil əlavə edin:

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. Və sonra, mətbuat F5 bu kodu çalıştırmak üçün açar, a İnsanlar pəncərə göstərilir, əlavə etmək istədiyiniz şəkilləri olan qovluğu seçin, ekran görüntüsünə baxın:

Doc, eyni ölçüyə malik 1 şəkilləri əlavə edin

4. Sonra basın OK düyməsini basın və şəkilləri ölçüsünü dəyişdirmək istəmədiyinizi xatırlatmaq üçün bir əmr qutusu açılır, ekran görüntüsünə baxın:

Doc, eyni ölçüyə malik 2 şəkilləri əlavə edin

5. Basın bəli, və mətn qutusuna virgülle ayrılmış olan hündürlüyü və genişliyin ölçülü nömrələrini yazın, ekran görünüşünə baxın:

Doc, eyni ölçüyə malik 3 şəkilləri əlavə edin

6. Və sonra basın OK, bütün daxil edilən şəkillər eyni ölçüdə yenidən düzəldilmişdir, bax ekran görüntüsü:

Doc, eyni ölçüyə malik 4 şəkilləri əlavə edin

Qeydvahid ölçüsü VBA kodunda gölməçədir.


Word üçün Kutools ilə müəyyən bir şəkil əsasında bütün şəkilləri eyni ölçüdə yenidən ölçün

Word sənədinizdə birdən çox şəkil var Word üçün Kutools'S Şəkilləri yenidən ölçün kommunal, bütün şəkilləri xüsusi olaraq eyni şəkildə dəyişə bilərsiniz.

Word üçün Kutools : 100 gündən çox 60 lazımlı Word eklentisi ilə, heç bir məhdudiyyət olmadan cəhd edə bilərsiniz.

Quraşdırıldıqdan sonra Word üçün Kutools, bunu edin:

1. Bir şəkil istədiyiniz ölçüsü seçin və sonra seçin, sonra basın Müəssisə > Şəkilləri yenidən ölçün > Seçim ilə şəkilləri yenidən ölçün, bax ekran görüntüsü:

Doc, eyni ölçüyə malik 5 şəkilləri əlavə edin

2. Bu söz sənədindəki bütün görünüşlər dərhal seçilmiş kimi eyni şəkildə düzəldilmişdir, ekran görüntüsünə baxın:

Doc, eyni ölçüyə malik 6 şəkilləri əlavə edin

Word üçün Kutools və indi pulsuz sınaq versiyasını yükləmək üçün tıklayın!



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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 · 1 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 :)