Přizpůsobení velikosti obrázků ve Wordu pomocí makra

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

Lze postupovat následujícím způsobem:

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