[Iska]

Ser0216, вставьте в модуль ThisDocument Вашего документа и выполните следующий код:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim objInlineShape As InlineShape
    
    For Each objInlineShape In ThisDocument.InlineShapes
        With objInlineShape
            .Height = MillimetersToPoints(294.7)
            .Width = MillimetersToPoints(220)
        End With
    Next objInlineShape
End Sub

Резкости в моей версии нет, увы. Только яркость и контрастность.