VBA删除文本框中的图片

Question

所以我有一个包含图片和标题的文本框文档。我写了一个代码来循环遍历对象，检查对象是否是文本框，如果是，复制标题的文本，清除文本框，用更新的图片替换图片，并重新插入标题。

然而，该文件已经进行了引用标题的交叉引用。所以当我重新插入标题时，交叉引用不再起作用。我想我可以通过删除每个文本框中的图片来解决这个问题，这样标题就可以保留，交叉引用也可以工作。

不过，我不确定如何在代码中引用图片。任何帮助都将不胜感激！

 For Each objShape In ActiveDocument.Shapes
    If objShape.Type = msoTextBox Then

       str = objShape.TextFrame.TextRange.Text
        If InStr(str, "(") > 0 Then
            captionTag = BetweenParentheses(str)
            If captionTag = imageTag Then
                If InStr(str, "Figure") > 0 Then

                   'problem area
                    Dim objPic As Word.InlineShapes
                    objPic.Delete


                   'does stuff
                    Dim firstTerm As String
                    Dim secondTerm As String
                    Dim caption As String
                    Dim caption2 As String

                    firstTerm = ":"
                    secondTerm = ")"

                    Dim startPos As Long
                    Dim stopPos As Long
                    Dim nextPosition As Long
                    nextPosition = 1

                    caption = objShape.TextFrame.TextRange


                    Do Until nextPosition = 0
                        startPos = InStr(nextPosition, caption, firstTerm, vbTextCompare) + 1
                        stopPos = InStr(startPos, caption, secondTerm, vbTextCompare) + 1
                        caption = Mid$(caption, startPos + Len(firstTerm), stopPos - startPos - Len(firstTerm))
                        nextPosition = InStr(stopPos, caption, firstTerm, vbTextCompare)
                   Loop



                    Set rng = objShape.TextFrame.TextRange
                    Set picture = rng.InlineShapes.AddPicture(fileName:=fullPath, LinkToFile:=False, SaveWithDocument:=True)
                    picture.ScaleHeight = 29.5 
                    picture.ScaleWidth = 29.5
                    rng.InsertCaption Label:="Figure", Title:=": " & caption, position:=wdCaptionPositionBelow, ExcludeLabel:=False

                    With objShape.TextFrame
                        .TextRange.Font.Name = "Calibri Light"
                        .TextRange.Font.Size = 9
                        .TextRange.Font.Color = RGB(79, 129, 189)
                    End With
                    'Next objPic
                End If
            End If
        End If
    End If

Next objShape

Answer 1

好的，所以解决方法很简单。。。现在我不必重新插入标题，引用仍然存在。

 Set rng = objShape.TextFrame.TextRange
 rng.InlineShapes(1).Delete
 Set picture = rng.InlineShapes.AddPicture(fileName:=fullPath, LinkToFile:=False, SaveWithDocument:=True)

Answer 2

使用该形状。填充特性

这将返回用于添加或删除图片的FillFormat对象。

'This will clear the existing picture
objShape.Fill.Solid

'This will set a picture using a path
objShape.Fill.UserPicture ("C:\Users\Public\Pictures\Sample Pictures\Lighthouse.jpg")

参考：

• 填充格式成员（Word）