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

0 голосов
спросил 24 Июль от Витек в категории Microsoft Word
Как осуществить передвижение рисунка в тексте с заданной точностью и где можно задать эту точность?

1 Ответ

0 голосов
ответил 26 Июль от Олег
выбран 26 Июль от faq
 
Лучший ответ
Для этих целей можно воспользоваться следующим макросом:
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
Добро пожаловать на сайт "Весь офис", где вы можете задавать вопросы и получать ответы от других членов сообщества по любым офисным программам.
...