1 Тема от admin

  • Как выделить картинку из Shape?
  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

Тема: Как выделить картинку из Shape?

Вопрос от Alex:
Как выделить картинку из Shape? Когда иду по всем шейпам выделяется Rectangle, а его в клипборд не скопировать. Внутри этого Rectangle сидит картинка, но выделить именно ее не получается. В InlineShapes этой картинки нет.

Сайтadmin

2 Ответ от Марк

  • Как выделить картинку из Shape?
  • Марк
  • сержант
  • Неактивен
  • Зарегистрирован: 21.12.2009
  • Сообщений: 18

Re: Как выделить картинку из Shape?

admin пишет:

Вопрос от Alex:
Как выделить картинку из Shape? Когда иду по всем шейпам выделяется Rectangle, а его в клипборд не скопировать. Внутри этого Rectangle сидит картинка, но выделить именно ее не получается. В InlineShapes этой картинки нет.

Я не знаю, как это сделать непосредственно в документе, но можно скопировать фигуру, содержащую картинку, в новый документ (чтобы не был затронут текущий документ), там преобразовать ее во встроенную фигуру, скопировать картинку в буфер обмена и закрыть без сохранения новый документ.
Например, можно воспользоваться такой подпрограммой:

Sub PictureFromShape2Clipboard()
  If Selection.Type = wdSelectionShape Then
    If Selection.ShapeRange.Type = msoPicture Then
      Selection.Copy
      Documents.Add DocumentType:=wdNewBlankDocument
      Selection.Paste
      Selection.ShapeRange.ConvertToInlineShape
      Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.Copy
      ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
    End If
  End If
End Sub