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