Как передвигать рисунок в тексте с заданной точностью

Sub movePic()
'Перемещение рисунка влево или вправо в милимметрах
Dim Message As String
On Error Resume Next
If Selection.Type = wdSelectionIP Then
   MsgBox "Пожалуйста, выделите ваш рисунок"
Else
   Do While Message = ""
      Message = InputBox("Введите расстояние (в мм), на которое следует переместить рисунок." & _
      vbCr & "Если нужно переместить рисунок влево, то перед цифрой поставьте знак 'минус'", _
      "Перемещение рисунка", "")
      If StrPtr(Message) = 0 Then Exit Sub
   Loop
   'проверка типа объекта и, если это картинка (InlineShape), то происходит ее
   'преобразование в рисунок (Shape)
   If Selection.Type = wdSelectionInlineShape Then
      Selection.InlineShapes(1).ConvertToShape
   End If
   Selection.ShapeRange.IncrementLeft MillimetersToPoints(Message)
End If
End Sub