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:

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

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
   


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

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