V tomto článku vám ukážeme, ako rýchlo zmeniť veľkosť viacerých obrázkov v dokumente Word, aby ste splnili určité požiadavky.
Nie je nič neobvyklé, že v dnešnej dobe máte do dokumentu Word vložených veľa obrázkov. Niekedy by však tieto obrázky mali byť nastavené v rovnakej veľkosti. Vložený obrázok je zvyčajne v štýle zabalenia „V súlade s textom“, čo znamená, že ich nemôžeme vybrať všetky súčasne. Úprava veľkosti obrázka teda môže byť časovo náročná, aj keď ich je len niekoľko.
Nasledujú 2 rýchle spôsoby, ktoré vám môžu byť užitočné.
Metóda 1: Použite kláves „F4“
- V prvom radeost, dvojitým kliknutím na obrázok vstúpite do režimu úprav.
- Potom kliknite na tlačidlo šípky nadol v skupine „Veľkosť“ na karte „Formát“, čím sa otvorí dialógové okno „rozloženie“.
- V otvorenom dialógovom okne zmeňte podľa potreby najskôr výšku a šírku.
- Potom zrušte začiarknutie políčok „Zamknúť pomer strán“ a „Relatívna k pôvodnej veľkosti obrázka“ v časti „Mierka“.
- Nakoniec kliknite na tlačidlo „OK“.
- Ďalej kliknite na iný obrázok a stlačte „F4“. Teraz nájdete druhý obrázok v rovnakej veľkosti ako predchádzajúci. „F4“ tu môže opakovať poslednú akciu.
Metóda 2: Použite kódy VBA
Všeobecne povedané, metóda 1 vám už môže ušetriť veľa času. Ak vám však príde nudné a nudné kliknúť na obrázok a stlačiť kláves „F4“, môžete pomocou kódov VBA úlohu dokončiť navždy.
- K start s, kliknite na kartu „Vývojár“.
- Potom kliknite na „Visual Basic“ v skupine „Code“ alebo stlačte „Alt + F11“ a otvorte editor VBA.
- Ďalej kliknite na „Normálny“.
- Kliknite na „Vložiť“.
- A zvoľte „Modul“.
- Potom dvakrát kliknite na nový modul, čím otvoríte oblasť úprav.
- Vložte nasledujúce kódy:
Sub SetupAllPictureSize () Dim objInlineShape As InlineShape Dim objShape As Shape For Every objInlineShape In ActiveDocument.InlineShapes objInlineShape.Height = 500 objInlineShape.Width = 500 Next objInlineShape For each objShape in ActiveDocument.Shape = Koniec Sub
- Nakoniec stlačte tlačidlo „Spustiť“.
Poznámky:
- Hodnoty môžete meniť v kódoch „objInlineShape.Height = 500“ a „objInlineShape.Width = 500“, pretože je potrebné zmeniť výšku a šírku obrázkov v štýle balenia „In line with text“.
- Hodnoty v kódoch „objShape.Height = 500“ a „objShape.Width = 500“ môžete zmeniť, aby ste zmenili výšku a šírku obrázkov, ktoré nie sú v štýle balenia „In line with text“.
Riešiť problémy s dokumentmi
Dokument programu Word obsahujúci príliš veľa obrázkov môže nielen spomaliť rýchlosť spracovania, ale aj spôsobiť poškodenie dokumentu. Jedným zo spôsobov je vyhnúť sa vloženiu príliš veľa obrázkov do súboru Word, aby ste sa s takýmto problémom nestretli. Iným spôsobom je však získať a nástroj na opravu problémov docx vopred, takže sa nebudete musieť obávať straty dôležitého súboru.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xlsx nástroj na opravu chýb údajov a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S
Som skutočne inšpirovaný vaším talentom na písanie, ako aj štruktúrou vášho blogu. Je to platený predmet alebo ste si ho prispôsobili sami? Či tak alebo onak, zostaňte v dobrej kvalite písania, v dnešnej dobe je nezvyčajné pozerať sa na skvelý weblog, ako je tento.
Dobrý deň, celý čas som kontroloval webovú stránku postsom tu skoro ráno, pretože ma baví získavať poznatky o stále viac a viac.
o.web20.services
Môj problém bol, keď som vložil väčšie položky, zmizlo to zo stránky. Tak som dal dokopy tento kód.
Sub WidthPictures2fit()
Dim i As Long
S ActiveDocumentom
Pre i = 1 To .InlineShapes.Count
S .InlineShapes(i)
Ak .Šírka > 520 Potom
.Šírka = 519
End If
Koniec s
Ďalej i
Koniec s
End Sub
Ak je šírka väčšia ako 520, šírka sa zmenší na 519. Čo je približne šírka bežného dokumentu Word. 520 si môžete nastaviť ako potrebujete.
Ďakujeme za kód VBA. Ak chce niekto použiť šírku alebo výšku mierky, potom je možné v kóde použiť nasledujúce parametre (80%):
Pre každý iShp v .InlineShapes
S iShp
If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
.Šírka mierky = 80
.Výška mierky = 80
End If
Koniec s
Ďalej iShp
Skvelý trik s VBA... len spomína, že rozmery sú v „bodoch“... použite google na prevod na palce alebo milimetre
Zdá sa, že príkaz F4 nefunguje na Macu (alebo Cmd Y). F4 sa zdá byť globálnym príkazom, pretože opakuje poslednú akciu, ktorú ste vykonali bez ohľadu na program, v ktorom sa nachádzate; ak ste napríklad pred chvíľou prilepili hľadaný výraz do prehliadača, prilepí sa tento text do Wordu (ale nie do vášho bezprostredne predchádzajúceho príkazu na zmenu veľkosti). Nenašiel som spôsob, ako to obísť.