Formátování více obrázků najednou ve Wordu

normální je vyzkoušet si, v jakém rozlišení se obrázek do té stránky právě vejde. na půl strany to bývá něco kolem 640*480px. (záleží i na formátu a barevné hloubce obrázku, m$ je co se týká grafiky velmi neschopný)

potom vybrané obrázky hromadně upravit v něčem, co umí dávkovou konverzi: xnview, možná i irfan view.
bitmapové obrázky jdou zmenšit (musí se pak doostřit), ale prakticky nejdou zvětšit, vzniklé rozmazání je hodně poznat.

pokud by šlo o screeny z pc s textem, musí se u nich zachovat měřítko 1:1 a obrázky ukládat výhradně s bezztrátovou kompresí (.png, .gif), jinak nebude písmo čitelné.

Pokud vím, tak více obrázků označit nejde, takže bys musela asi použít makro.
To tak jednoduché není, obzvlášť když nechceš hromadně upravovat všechny obrázky - totiž našel jsem makro, které umožní nastavit třeba výšku všem obrázkům v celém dokumentu, které jsou vložené v řádku. Možná by to někdo uměl upravit, aby to šlo spustit na jeden označený obrázek, pak by to šlo spouštět třeba klávesovou zkratkou...
Požadovanou výšku zadej za vyskavcm =

Sub resize()
Dim i As Long, j As Single
cmtopoint = 0.035267
vyskavcm = 5
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.ScaleHeight = 100
.ScaleWidth = 100
.Height = vyskavcm / cmtopoint
End With
Next i
End With

End Sub