vba word: Как выбрать изображения?

Question

Итак, для моего конкретного приложения я хочу, чтобы иметь возможность выбрать изображение после того, как я скопировал его из Excel, а затем вставьте надпись.

Я могу успешно копировать изображения с помощью:

docapp.Selection.Range.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine 

Однако, у меня много трудной просто выбирая недавно скопированного изображения, так что я могу использовать

Selection.InsertCaption 

Какой самый лучший способ выбрать изображения?

Answer 1

Хорошо, я идиот и решил свою проблему. Это не самый красивый код, но он работает:

Ключ использовать document.InlineShapes.Select:

Public Sub Chart2Word(chto As Chart, doc1 As Word.Document, docapp As Word.Application, _ 
        Optional Title As Variant) 
    Dim objpic As Word.InlineShape 


    docapp.Activate 
    chto.CopyPicture 

    docapp.Selection.MoveEnd wdStory 
    docapp.Selection.Move 
    docapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 

    docapp.Selection.Range.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine 

    doc1.InlineShapes(doc1.InlineShapes.Count).Select 
    Label = Me.Range("LabelName").value 
    If Not IsMissing(Title) Then 

     docapp.Selection.InsertCaption Label:=Label, Title:=": " + Title 
    End If