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í
Jana.dankova (diskuse | příspěvky)
Bez shrnutí editace
Jdan (diskuse | příspěvky)
Bez shrnutí editace
 
(Není zobrazeno 12 mezilehlých verzí od jednoho dalšího uživatele.)
Řádek 1: Řádek 1:
===Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu===
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.


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 maker, která výrazně usnadní práci.


 
===Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu:===
Lze postupovat následujícím způsobem:




<ol>
<ol>
<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>
<br>
 
<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]]


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




<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>
<br><br>




[[Image:Makro 2.png]]
<li>Nahradit veškerý původní text tímto:<br><br>
 
'''Obr.''' ''Vytvoření makra a jeho pojmenování''
 
<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]]
 
'''Obr.''' ''Zastavení záznamu makra''
 
 
<li>Poté použít volbu ''Zobrazit makro''</li>
 
 
[[Image:Makro 4.png]]
 
'''Obr.''' ''Zobrazení makra''
 
 
<li>Vybrat požadované makro a stisknout tlačítko ''Upravit''</li>
 
 
[[Image:Makro 5.png]]
 
'''Obr.''' ''Výběr makra a jeho úprava''
 
 
<li>Nahradit veškerý původní text tímto:
<syntaxhighlight lang="plsql">
<syntaxhighlight lang="plsql">
Sub fitImageSize()
Sub fitImageSize()
Řádek 67: Řádek 35:
</li>
</li>


[[Image:Makro 6.png]]<br>
'''Obr.''' ''Přepsání původního textu novým''


[[Image:Makro 6.png]]
<br><br>
 
'''Obr.''' ''Přepsání původního textu novým''


<li>Okna s textem zavřít a znovu stisknout kartu ''Makra'' &rarr; vybrat makro s názvem '''fitImageSize''' &rarr; tlačítko ''Spustit''</li>


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




[[Image:Makro 7.png]]
<br><br>


'''Obr.''' ''Opětovné zobrazení makra a jeho spuštění''
</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í


<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>
[[Image:Makro 10.png]]<br>
'''Obr.''' ''Povolení spuštění maker''




[[Image:Makro 8.png]]
*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.''' ''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é)''
[[Image:Makro 9.png]]<br>
</ol>
'''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

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

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

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

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