将图像放入形状 - Word VBA

Question

我创建了这段代码来查找 Word 文档中的形状以更改它包含的图像。

我可以通过使用形状名称（Oval 47）找到形状，但我对此没有信心。 我想通过使用替代文本“肖像”来达到形状。

起初它可以工作，但现在在使用此替代文本查找形状时，它会跳过代码。 为什么？

For Each shp In doc.Shapes
    shp.Select
    Debug.Print Selection.ShapeRange.Name & " = " & Selection.ShapeRange.AlternativeText
        
    If Selection.ShapeRange.AlternativeText = "Portrait" Then
        MsgBox "portrait"
        For Each vrtSelectedItem In .SelectedItems
            With Selection.ShapeRange.Fill
                .UserPicture vrtSelectedItem
            End With
            Exit Sub
        Next vrtSelectedItem
    End If
Next shp