Загрузка данных

Sub CropBottomFivePixels()
    Dim pic As InlineShape
    ' 5 пикселей примерно равны 3.75 пунктам
    Dim cropPoints As Single
    cropPoints = 3.75 

    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.PictureFormat.CropBottom = cropPoints
        End If
    Next pic
    
    MsgBox "Готово! Обрезано снизу на 5 пикселей."
End Sub