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í
← Porovnání se starší verzí
VizuálníWikitext
Jana.dankova (diskuse | příspěvky)
45 141 editací
Bez shrnutí editace
Jdan (diskuse | příspěvky)
7 827 editací
Bez shrnutí editace
 
(Není zobrazeno 10 mezilehlých verzí od jednoho dalšího uživatele.)
Řádek 7: Řádek 7:
<ol>
<ol>
<br>
<br>
<li>V dokumentu MS Word z panelu nástrojů vybrat nabídku ''Zobrazení'' &rarr; kartu ''Makro'' &rarr; rozbalit nabídku &rarr; vybrat volbu ''Zaznamenat makro...''</li>
<li>V dokumentu MS Word z panelu nástrojů vybrat nabídku ''Zobrazení'' &rarr; kliknout na kartu ''Makra'' &rarr; do názvu '''fitImageSize''' &rarr; tlačítko ''Vytvořit''</li>
 


[[Image:Makro 1.png]]<br>
[[Image:Makro 1.png]]<br>
'''Obr.''' ''Zaznamenání makra''
'''Obr.''' ''Zaznamenání makra''


<br><br>
<li>Nově vytvářené makro pojmenovat názvem '''fitImageSize''' &rarr; do popisu je možné vložit libovolný text pro identifikaci makra &rarr; tlačítkem ''Ok'' makro vytvořit</li>
[[Image:Makro 2.png]]<br>
'''Obr.''' ''Vytvoření makra a jeho pojmenování''
<br><br>
<li>Z panelu nástrojů vybrat nabídku ''Zobrazení'' &rarr; kartu ''Makro'' &rarr; rozbalit nabídku &rarr; vybrat volbu ''Zastavit makro''</li>
[[Image:Makro 3.png]]<br>
'''Obr.''' ''Zastavení záznamu makra''
<br><br>
<li>Poté použít volbu ''Zobrazit makro''</li>
[[Image:Makro 4.png]]<br>
'''Obr.''' ''Zobrazení makra''


<br><br>
<br><br>
<li>Vybrat požadované makro a stisknout tlačítko ''Upravit''</li>


[[Image:Makro 5.png]]<br>
'''Obr.''' ''Výběr makra a jeho úprava''
<br><br>


<li>Nahradit veškerý původní text tímto:<br><br>
<li>Nahradit veškerý původní text tímto:<br><br>
Řádek 65: Řádek 34:
</syntaxhighlight>
</syntaxhighlight>
</li>
</li>


[[Image:Makro 6.png]]<br>
[[Image:Makro 6.png]]<br>
Řádek 72: Řádek 40:
<br><br>
<br><br>


<li>Okna s textem zavřít a znovu použít volbu ''Zobrazit makro'' &rarr; vybrat právě vytvořené makro z nabídky (je-li jich více, vybrat to správné s názvem '''fitImageSize''') &rarr; stisknout tlačítko ''Spustit makro''</li>
<li>Okna s textem zavřít a znovu stisknout kartu ''Makra'' &rarr; vybrat makro s názvem '''fitImageSize''' &rarr; tlačítko ''Spustit''</li>


[[Image:Makro 7.png]]<br>
'''Obr.''' ''Spuštěním makra se obrázky přizpůsobí velikosti dokumentu''


[[Image:Makro 7.png]]<br>
'''Obr.''' ''Opětovné zobrazení makra a jeho spuštění''


<br><br>
<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>
</ol>
 
'''Pokud vám i přesto makro nepůjde spustit, je možné, že nemáte povolená makra. V tomto případě doporučujeme následující postup:'''
*celý dokument zavřít a opět ho otevřít
*ve žlutém rámečku umístěném pod horní lištou kliknout na text "Bylo zakázáno spouštění maker" pro získání dalších informací


[[Image:Makro 10.png]]<br>
'''Obr.''' ''Povolení spuštění maker''


[[Image:Makro 8.png]]<br>
'''Obr.''' ''Přizpůsobení velikosti obrázků dokumentu po spuštění makra (všechny obrázky se zmenší tak, aby byly v dokumentu viditelné)''


<br><br>
*v otevřeném okně u první možnosti "Upozornění zabezpečení" rozkliknout tlačítko "Povolit obsah"
*z nabízených možností vybrat "Povolit veškerý obsah"


</ol>
[[Image:Makro 9.png]]<br>
'''Obr.''' ''Povolení spuštění maker''

Aktuální verze z 10. 10. 2019, 09:55

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:


  1. V dokumentu MS Word z panelu nástrojů vybrat nabídku Zobrazení → kliknout na kartu Makra → do názvu fitImageSize → tlačítko Vytvořit

    2. Obr. Zaznamenání makra

  2. 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

    3. Obr. Přepsání původního textu novým

  3. Okna s textem zavřít a znovu stisknout kartu Makra → vybrat makro s názvem fitImageSize → tlačítko Spustit

    4. Obr. Spuštěním makra se obrázky přizpůsobí velikosti dokumentu

Pokud vám i přesto makro nepůjde spustit, je možné, že nemáte povolená makra. V tomto případě doporučujeme následující postup:

  • celý dokument zavřít a opět ho otevřít
  • ve žlutém rámečku umístěném pod horní lištou kliknout na text "Bylo zakázáno spouštění maker" pro získání dalších informací


Obr. Povolení spuštění maker


  • v otevřeném okně u první možnosti "Upozornění zabezpečení" rozkliknout tlačítko "Povolit obsah"
  • z nabízených možností vybrat "Povolit veškerý obsah"


Obr. Povolení spuštění maker

Citováno z „https://wiki.bbm.cz/index.php?title=Přizpůsobení_velikosti_obrázků_ve_Wordu_pomocí_makra&oldid=76068“