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

vba字：如何选择图像？

1 个答案: