Ms Word : Macro : resize image

 ..

'CentimetersToPoints(), InchesToPoints

Sub abc()
    Dim shp As Word.Shape
    Dim ishp As Word.InlineShape
    If Word.Selection.Type <> wdSelectionInlineShape And _
        Word.Selection.Type <> wdSelectionShape Then
        Exit Sub
    End If
    If Word.Selection.Type = wdSelectionInlineShape Then
        Set ishp = Word.Selection.Range.InlineShapes(1)
        ishp.LockAspectRatio = False
        ishp.Height = InchesToPoints(1.78)
        ishp.Width = InchesToPoints(3.17)
    Else
        If Word.Selection.Type = wdSelectionShape Then
            Set shp = Word.Selection.ShapeRange(1)
            shp.LockAspectRatio = False
            shp.Height = InchesToPoints(1.78)
            shp.Width = InchesToPoints(3.17)
        End If
    End If
End Sub

..