Hromadně změnit velikost všech obrázků v dokumentu lze pomocí makra.
1. Alt+F11 (VB pro psaní maker)
2. Copy/Paste tento kód:
3. Změňte požadovanou hodnotu ScaleHeight, ScaleWidth (v procentech)Sub resize()
'
Dim i As Long, j As Single
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.ScaleHeight = 100
.ScaleWidth = 100
End With
Next i
End With
End Sub
4. F5 (Run)
nebo tam lze i připsat velikost v palcích:
pro centimetry nevím, vycházím odsud:Sub resize()
'
Dim i As Long, j As Single
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.ScaleHeight = 100
.ScaleWidth = 100
j = InchesToPoints(12.6) / .Height
.Height = InchesToPoints(12.6)
.Width = .Width * j
End With
Next i
End With
End Sub
http://answers.microsoft.com/en-us/office/forum/of fice_2013_release-word/word-2013-how-can-i-resize- multiple-pictures-in-a/cbbf0fc6-8146-45a0-b9a5-53c d0c758488
Mě to funguje na Office 2007, Win Vista.