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