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í → kartu Makro → rozbalit nabídku → vybrat volbu Zaznamenat makro...
Obr. Zaznamenání makra


2. Nově vytvářené makro pojmenovat názvem fitImageSize → do popisu je možné vložit libovolný text pro identifikaci makra → tlačítkem Ok makro vytvořit
Obr. Vytvoření makra a jeho pojmenování


3. Z panelu nástrojů vybrat nabídku Zobrazení → kartu Makro → rozbalit nabídku → vybrat volbu Zastavit makro
Obr. Zastavení záznamu makra


4. Poté použít volbu Zobrazit makro
Obr. Zobrazení makra


5. Vybrat požadované makro a stisknout tlačítko Upravit
Obr. Výběr makra a jeho úprava


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


7. Okna s textem zavřít a znovu použít volbu Zobrazit makro → vybrat právě vytvořené makro z nabídky (je-li jich více, vybrat to správné s názvem fitImageSize) → stisknout tlačítko Spustit makro
Obr. Opětovné zobrazení makra a jeho spuštění


8. 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
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é)