Здравствуйте.
Объясните пожалуйста в чем соль?
Исходная задача стоит так:
В документе щелкнуть на объект картинки, передать его в пэинт например и после редактирования обратно в документ.
Как всгеда нормальных механизмов нету. в итоге принято решение передать через временный файл.
Сохранение сделал в единственное что нашел:
Private Sub oApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Dim oCC As ContentControl
Dim Shp As Shape, iShp As InlineShape, StrOut As String
Dim f As Integer, i As Integer, strOutFileName As String
Dim vData() As Byte
For Each iShp In ActiveDocument.InlineShapes
With iShp
If .Type = wdInlineShapePicture Then
If Selection.Range.Start = iShp.Range.Start Then
strOutFileName = "c:\test.emf"
iShp.Range.Select
vData = iShp.Range.EnhMetaFileBits
Open strOutFileName For Binary Access Write As #1
Put #1, 1, iShp.Range.EnhMetaFileBits
Close #1
End If
End If
End With
Next
Cancel = False
End Sub
Формат emf вроде как. Но он ничем не открывается … (( НО… когда ковырялся в хексредакторе то обнаружил что это png документ в упаковке.
Если убрать заголовок то появляется картинка, но почему она всегда неполностью. Либо половина либо начало.
вот было:
и вот стало:
Есть идеи как полечить?