VBA：内容控制；图片的文件名

Question

我对 VBA 比较陌生，并尝试在多个 Word 文档中自动插入图片。于是在Word文档中我做了一个图片内容控件。我给这个内容控件的标题是 "insert_pict"。现在在我的宏中，如何添加

到目前为止我有这个代码：

Sub picturecc()

Dim Word_path As String
Dim Imagelocation As String
Word_path = "template.docm"
Imagelocation = "C:\Users\XXX\Desktop\Picture1.png"
Documents(Word_path).Activate
With ActiveDocument
    .SelectContentControlsByTitle("insert_pict")(1).Range.InlineShape.AddPicture (Imagelocation)
End With

End Sub

但是我在 .SelectContentControlsByTitle("insert_pict")(1).Range.InlineShape.AddPicture（图像位置）行中收到错误 "method or data member not found"。将图片添加到内容控件的正确方法是什么？谁能帮我完成这项工作？非常感谢。

Answer 1

使用：

With ActiveDocument
    .InlineShapes.AddPicture Imagelocation, , , .SelectContentControlsByTitle("insert_pict")(1).Range
End With

VBA：内容控制；图片的文件名

VBA: Content control; filename of a picture

vba

ms-word

word-contentcontrol