Přizpůsobení velikosti obrázků ve Wordu pomocí makra: Porovnání verzí
Z BBM Dokumentace iFIS
Skočit na navigaciSkočit na vyhledávání
Bez shrnutí editace |
Bez shrnutí editace |
||
Řádek 1: | Řádek 1: | ||
Obrázky přesahující velikost dokumentu ve Wordu lze zmenšit tak, aby byly viditelné a použitelné k tisku. K tomu lze využít v MS Word tzv. '''maker''', která uživatelům výrazně usnadní práci například s přípravou dokumentu k tisku. | |||
===Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu:=== | |||
<ol> | <ol> | ||
<br> | |||
<li>V dokumentu MS Word z panelu nástrojů vybrat nabídku ''Zobrazení'' → kartu ''Makro'' → rozbalit nabídku → vybrat volbu ''Zaznamenat makro...''</li> | <li>V dokumentu MS Word z panelu nástrojů vybrat nabídku ''Zobrazení'' → kartu ''Makro'' → rozbalit nabídku → vybrat volbu ''Zaznamenat makro...''</li> | ||
Řádek 15: | Řádek 14: | ||
'''Obr.''' ''Zaznamenání makra'' | '''Obr.''' ''Zaznamenání makra'' | ||
<br><br> | |||
<li>Nově vytvářené makro pojmenovat názvem '''fitImageSize''' → do popisu je možné vložit libovolný text pro identifikaci makra → tlačítkem ''Ok'' makro vytvořit</li> | <li>Nově vytvářené makro pojmenovat názvem '''fitImageSize''' → do popisu je možné vložit libovolný text pro identifikaci makra → tlačítkem ''Ok'' makro vytvořit</li> | ||
Řádek 22: | Řádek 22: | ||
'''Obr.''' ''Vytvoření makra a jeho pojmenování'' | '''Obr.''' ''Vytvoření makra a jeho pojmenování'' | ||
<br><br> | |||
<li>Z panelu nástrojů vybrat nabídku ''Zobrazení'' → kartu ''Makro'' → rozbalit nabídku → vybrat volbu ''Zastavit makro''</li> | <li>Z panelu nástrojů vybrat nabídku ''Zobrazení'' → kartu ''Makro'' → rozbalit nabídku → vybrat volbu ''Zastavit makro''</li> | ||
Řádek 31: | Řádek 32: | ||
'''Obr.''' ''Zastavení záznamu makra'' | '''Obr.''' ''Zastavení záznamu makra'' | ||
<br><br> | |||
<li>Poté použít volbu ''Zobrazit makro''</li> | <li>Poté použít volbu ''Zobrazit makro''</li> | ||
Řádek 39: | Řádek 41: | ||
'''Obr.''' ''Zobrazení makra'' | '''Obr.''' ''Zobrazení makra'' | ||
<br><br> | |||
<li>Vybrat požadované makro a stisknout tlačítko ''Upravit''</li> | <li>Vybrat požadované makro a stisknout tlačítko ''Upravit''</li> | ||
Řádek 47: | Řádek 50: | ||
'''Obr.''' ''Výběr makra a jeho úprava'' | '''Obr.''' ''Výběr makra a jeho úprava'' | ||
<br><br> | |||
<li>Nahradit veškerý původní text tímto: | <li>Nahradit veškerý původní text tímto:<br><br> | ||
<syntaxhighlight lang="plsql"> | <syntaxhighlight lang="plsql"> | ||
Sub fitImageSize() | Sub fitImageSize() | ||
Řádek 72: | Řádek 76: | ||
'''Obr.''' ''Přepsání původního textu novým'' | '''Obr.''' ''Přepsání původního textu novým'' | ||
<br><br> | |||
<li>Okna s textem zavřít a znovu použít volbu ''Zobrazit makro'' → vybrat právě vytvořené makro z nabídky (je-li jich více, vybrat to správné s názvem '''fitImageSize''') → stisknout tlačítko ''Spustit makro''</li> | <li>Okna s textem zavřít a znovu použít volbu ''Zobrazit makro'' → vybrat právě vytvořené makro z nabídky (je-li jich více, vybrat to správné s názvem '''fitImageSize''') → stisknout tlačítko ''Spustit makro''</li> | ||
Řádek 80: | Řádek 85: | ||
'''Obr.''' ''Opětovné zobrazení makra a jeho spuštění'' | '''Obr.''' ''Opětovné zobrazení makra a jeho spuštění'' | ||
<br><br> | |||
<li>Použitím tlačítka dojde k přizpůsobení obrázků velikosti dokumentu a dokument je připraven k dalšímu zpracování či tisku</li> | <li>Použitím tlačítka dojde k přizpůsobení obrázků velikosti dokumentu a dokument je připraven k dalšímu zpracování či tisku</li> | ||
Řádek 87: | Řádek 93: | ||
'''Obr.''' ''Přizpůsobení velikosti obrázků dokumentu po spuštění makra (všechny obrázky dokumentu se zmenší tak, aby byly v dokumentu viditelné)'' | '''Obr.''' ''Přizpůsobení velikosti obrázků dokumentu po spuštění makra (všechny obrázky dokumentu se zmenší tak, aby byly v dokumentu viditelné)'' | ||
<br><br> | |||
</ol> | </ol> |
Verze z 19. 7. 2016, 09:12
Obrázky přesahující velikost dokumentu ve Wordu lze zmenšit tak, aby byly viditelné a použitelné k tisku. K tomu lze využít v MS Word tzv. maker, která uživatelům výrazně usnadní práci například s přípravou dokumentu k tisku.
Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu:
- V dokumentu MS Word z panelu nástrojů vybrat nabídku Zobrazení → kartu Makro → rozbalit nabídku → vybrat volbu Zaznamenat makro...
- Nově vytvářené makro pojmenovat názvem fitImageSize → do popisu je možné vložit libovolný text pro identifikaci makra → tlačítkem Ok makro vytvořit
- Z panelu nástrojů vybrat nabídku Zobrazení → kartu Makro → rozbalit nabídku → vybrat volbu Zastavit makro
- Poté použít volbu Zobrazit makro
- Vybrat požadované makro a stisknout tlačítko Upravit
- Nahradit veškerý původní text tímto:
Sub fitImageSize() Dim i, maxWidth As Long maxWidth = 453.5 With ActiveDocument For i = 1 To .InlineShapes.Count If .InlineShapes(i).Width > maxWidth Then With .InlineShapes(i) .Width = maxWidth End With End If Next i End With End Sub
- Okna s textem zavřít a znovu použít volbu Zobrazit makro → vybrat právě vytvořené makro z nabídky (je-li jich více, vybrat to správné s názvem fitImageSize) → stisknout tlačítko Spustit makro
- Použitím tlačítka dojde k přizpůsobení obrázků velikosti dokumentu a dokument je připraven k dalšímu zpracování či tisku







