Zobrazení zdroje stránky Přizpůsobení velikosti obrázků ve Wordu pomocí makra

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


<br><br>


<li>Nahradit veškerý původní text tímto:<br><br>
<syntaxhighlight lang="plsql">
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
</syntaxhighlight>
</li>

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

<br><br>

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


<br><br>

</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''


*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"

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