Kuinka lisätä kuvia ja muuttaa niiden kokoa samaan kokoon Wordissa?

Normaalisti voit lisätä Word-asiakirjaan useita kuvia kerralla niiden alkuperäisessä koossa. Joskus sinun on kuitenkin varmistettava, että kaikki kuvat ovat samankokoisia, jotta ulkoasu on yhtenäinen ja ammattimainen. Kunkin kuvan koon muuttaminen manuaalisesti voi viedä aikaa. Tämä opas näyttää, kuinka voit lisätä useita kuvia tehokkaasti Word-asiakirjaan ja muuttaa niiden kokoa tasaisesti, mikä varmistaa ammattimaisen ja yhtenäisen asettelun.

Lisää useita kuvia ja muuta niiden kokoa samaan kokoon Wordissa VBA:n avulla

Muuta kaikkien kuvien kokoa vastaamaan tiettyä kuvaa käyttämällä Kutools for Wordia

Lisää useita kuvia ja muuta niiden kokoa samaan kokoon Wordissa VBA:n avulla

Seuraava VBA-koodi voi auttaa sinua lisäämään useita kuvia ja muuttamaan niiden kokoa määritettyihin mittoihin kerralla. Toimi seuraavasti:

1. Pidä alhaalla ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Napauta liite > Moduulitja liitä seuraava koodi tiedostoon Moduulit ikkunassa.

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. lehdistö F5 suorittaaksesi tämän koodin. A selailla ikkuna tulee näkyviin. Valitse kansio, joka sisältää lisättävät kuvat ja napsauta OK.

   

4. Näkyviin tulee kehote, jossa kysytään, haluatko muuttaa kuvien kokoa. Napsauta Kyllä.

   

5. Syötä korkeus ja leveys pisteinä (pt) pilkulla erotettuna näkyviin tulevaan tekstiruutuun ja napsauta sitten OK.

   

6. Kaikki lisätyt kuvat muutetaan nyt määritettyihin mittoihin.

   

Muuta kaikkien kuvien kokoa vastaamaan tiettyä kuvaa käyttämällä Kutools for Wordia

Kun Word-asiakirjasi sisältää useita kuvia, niiden koon muuttaminen yksitellen voi olla työlästä. Kanssa Kutools for Word, The Muuta kuvia apuohjelman avulla voit nopeasti muuttaa kaikkien kuvien kokoa vastaamaan tietyn kuvan kokoa.

1. Säädä yksi kuva haluttuun kokoon ja valitse se. Napsauta sitten Kutools Plus > Kokoa > Muuta kaikkien kuvien kokoa valinnan perusteella.

   

Kaikkien Word-asiakirjan kuvien koko muutetaan välittömästi vastaamaan valitun kuvan kokoa.

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista