Note: The other languages of the website are Google-translated. Back to English

 Kako v Wordov dokument vstaviti več slik z enako velikostjo?

Običajno lahko v Wordov dokument v prvotno velikost vstavite več slik hkrati. Včasih morate te slike pri vstavljanju razporediti na enako velikost. V tem članku bom govoril o tem, kako v Wordov dokument vstaviti več slik z enako velikostjo.

V dokument Word vstavite več slik z enako velikostjo s kodo VBA

S Kutools for Word spremenite velikost vseh slik na enako velikost glede na določeno sliko


V dokument Word vstavite več slik z enako velikostjo s kodo VBA

Naslednja koda vba vam lahko pomaga vstaviti več slik in jih hkrati prilagoditi na določeno velikost, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: vstavite več slik z enako velikostjo:

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. In nato pritisnite F5 tipko za zagon te kode, a Brskanje okno se prikaže, izberite mapo, ki vsebuje slike, ki jih želite vstaviti, si oglejte posnetek zaslona:

doc vstavi slike enake velikosti 1

4. Nato kliknite OK in izpiše se pozivno polje, ki vas opozori, če želite spremeniti velikost slik, glejte sliko zaslona:

doc vstavi slike enake velikosti 2

5. Kliknite Dain v besedilno polje vnesite številke velikosti višine in širine, ki sta ločeni z vejico, glejte posnetek zaslona:

doc vstavi slike enake velikosti 3

6. In nato kliknite OK, vse vstavljene slike so preurejene v enako velikost, glej posnetek zaslona:

doc vstavi slike enake velikosti 4

Opombe: velikost enote je ribnik v kodi VBA.


S Kutools for Word spremenite velikost vseh slik na enako velikost glede na določeno sliko

Če v dokumentu Word obstaja več slik, z Kutools za WordJe Spreminjanje velikosti slik Pripomoček lahko hitro spremenite velikost vseh slik enako kot določeno.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. 

Po namestitvi Kutools za Word, naredite tako:

1. Prilagodite eno sliko želeni velikosti in jo izberite, nato kliknite Kutools Plus > Resize > Spreminjanje velikosti slik z izbiro, glej posnetek zaslona:

2. In vse slike v tem besedilnem dokumentu so takoj spremenjene tako kot izbrane, glejte posnetek zaslona:

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (4)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živijo
Sem Soda, tukaj sem, da to povem, res se veliko naučim z vašo spletno stranjo in informacijami, ki jih dajete.
Hvala za to :)
Ta komentar je moderator na spletnem mestu minimiziral
hvala za pomoč ... zelo zanimivo ... veliko delo ... vso srečo
Ta komentar je moderator na spletnem mestu minimiziral
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/minuisco le dimensioni delle imagini? Percentuale/raporto? piksel? cm?
HVALA!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljen, Grasselli
Velikost enote je ribnik v zgornji kodi VBA.
Hvala!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL