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