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

 Jak vložit více obrázků se stejnou velikostí do dokumentu Word?

Normálně můžete do dokumentu Word vložit více obrázků najednou v jejich původní velikosti. Někdy je nutné tyto obrázky při vkládání uspořádat do stejné velikosti. V tomto článku budu hovořit o tom, jak vložit více obrázků se stejnou velikostí do dokumentu aplikace Word.

Vložte více obrázků stejné velikosti do dokumentu Word pomocí kódu VBA

Změňte velikost všech obrázků na stejnou velikost na základě konkrétního obrázku pomocí programu Kutools pro Word


Vložte více obrázků stejné velikosti do dokumentu Word pomocí kódu VBA

Následující kód VBA vám pomůže vložit více obrázků a změnit jejich velikost na zadanou velikost najednou, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: vložte více obrázků se stejnou velikostí:

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu, a Procházet Zobrazí se okno, vyberte složku obsahující obrázky, které chcete vložit, viz screenshot:

doc vložte obrázky se stejnou velikostí 1

4. Pak klikněte na tlačítko OK Tlačítko a vyskočí okno s výzvou, které vám připomene, pokud chcete změnit velikost obrázků, viz screenshot:

doc vložte obrázky se stejnou velikostí 2

5, klikněte Anoa do textového pole zadejte čísla velikostí výšky a šířky, která jsou oddělena čárkou, viz screenshot:

doc vložte obrázky se stejnou velikostí 3

6. A pak klikněte na tlačítko OK, všechny vložené obrázky byly přeskupeny na stejnou velikost, viz screenshot:

doc vložte obrázky se stejnou velikostí 4

Poznámka: velikost jednotky je v kódu VBA rybník.


Změňte velikost všech obrázků na stejnou velikost na základě konkrétního obrázku pomocí programu Kutools pro Word

Pokud ve vašem dokumentu Word existuje více obrázků, s Kutools pro WordJe Změnit velikost obrázků nástroj, můžete rychle změnit velikost všech obrázků stejně jako u konkrétního.

Kutools pro Word : s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. 

Po instalaci Kutools pro Word, udělejte prosím toto:

1. Upravte jeden obrázek na požadovanou velikost, vyberte jej a poté klikněte Kutools Plus > Změna velikosti > Změňte velikost obrázků pomocí výběru, viz screenshot:

2. A všechny obrázky v tomto wordovém dokumentu byly okamžitě změněny stejně jako vybrané obrázky, viz screenshot:

Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetřete 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Čau ahoj
Jsem Soda, jsem tady, abych to řekl, na vašich webových stránkách a informacích, které poskytujete, se opravdu hodně naučím.
Díky za to :)
Tento komentář byl moderátorem webu minimalizován
díky za pomoc ... je to velmi zajímavé ... velká práce ... hodně štěstí
Tento komentář byl moderátorem webu minimalizován
Dobrý den, je to užitečné! Bez mé chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensions delle immagini? Procentuální/zpráva? pixel? cm?
GRAZIE!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Grasselli
Velikost jednotky je ve výše uvedeném kódu VBA rybník.
Děkuji!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL