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í
VizuálníWikitext
Jana.dankova (diskuse | příspěvky)
45 141 editací
Založena nová stránka s textem „'''Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu:''' Image:Makro 1.png '''Obr.''' ''Zaz…“
 
Jdan (diskuse | příspěvky)
7 827 editací
Bez shrnutí editace
 
(Není zobrazeno 13 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.




===Návod na vytvoření makra pro úpravu obrázků, které svojí velikostí přesahují dokument ve Wordu:===


[[Image:Makro 1.png]]


<ol>
<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]]<br>
'''Obr.''' ''Zaznamenání makra''
'''Obr.''' ''Zaznamenání makra''




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


'''Obr.''' ''Vytvoření makra a jeho pojmenování''


<li>Nahradit veškerý původní text tímto:<br><br>
<syntaxhighlight lang="plsql">
Sub fitImageSize()
Dim i, maxWidth As Long


[[Image:Makro 3.png]]
maxWidth = 453.5
 
With ActiveDocument
'''Obr.''' ''Zastavení záznamu makra''
    For i = 1 To .InlineShapes.Count
 
      If .InlineShapes(i).Width > maxWidth Then
 
        With .InlineShapes(i)
[[Image:Makro 4.png]]
            .Width = maxWidth
 
        End With
'''Obr.''' ''Zobrazení makra''
      End If
 
    Next i
End With
End Sub
</syntaxhighlight>
</li>


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


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


'''Obr.''' ''Výběr makra a jeho úprava''
<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 6.png]]


'''Obr.''' ''Přepsání původního textu novým''
<br><br>


</ol>


[[Image:Makro 7.png]]
'''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.''' ''Opětovné zobrazení makra a jeho spuštění''
[[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>
'''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“