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:
4. Nato kliknite OK in izpiše se pozivno polje, ki vas opozori, če želite spremeniti velikost slik, glejte sliko zaslona:
5. Kliknite Dain v besedilno polje vnesite številke velikosti višine in širine, ki sta ločeni z vejico, glejte posnetek zaslona:
6. In nato kliknite OK, vse vstavljene slike so preurejene v enako velikost, glej posnetek zaslona:
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!
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...