做了个每页文档里插入图片功能，图片尺寸和位置失效是咋回事？

[快乐布衣]

 做了功能，网每页文档里插入一张图片，并设定位置和尺寸。执行的时候，第一次执行正常，重复执行以下位置和尺寸就不管用了。代码如下

 

 

Dim objFileDialog As FileDialog
    Dim i As Integer
    
    Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    objFileDialog.Title = "选择文件"
    objFileDialog.Filters.Clear
    objFileDialog.Filters.Add "PDF Files,png file,jpeg file,jpg", "*.pdf,*.png,*.jpeg,*.jpg"
    objFileDialog.AllowMultiSelect = False
    
    If objFileDialog.Show Then
        strFilePath = objFileDialog.SelectedItems(1)
        'MsgBox strFilePath

        '插入图片操作-------------------------------------------------
            'Dim i As Integer
            
            Selection.HomeKey wdStory '如果删掉，图片会放在一个地方
            
            
             If strFilePath <> "" Then
               
                Application.Browser.Target = wdBrowsePage '设置按页浏览
                Application.ScreenUpdating = False '关闭屏幕刷新
                
                For i = 1 To ActiveDocument.ActiveWindow.ActivePane.Pages.Count
                    
                      Selection.InlineShapes.AddPicture(strFilePath).ConvertToShape '插入图形
                      
                      ActiveDocument.Shapes.Item(i).WrapFormat.Type = wdWrapFront '图片环绕方式
                      ActiveDocument.Shapes.Item(i).Top = 500 '上位置
                      ActiveDocument.Shapes.Item(i).Left = 300 '左位置
                      ActiveDocument.Shapes.Item(i).Width = 114 '图片大小，宽4厘米
                      ActiveDocument.Shapes.Item(i).Height = 114 '图片大小
                    
                    Application.Browser.Next '走到下一页
                    
NextIteration:
                    Next i
                
                Application.ScreenUpdating = True '屏幕刷新
                
                MsgBox "操作完毕"
            Else
                MsgBox "没有选择文件"
            
            End If
         '------------------------------------------------------------------
    
    Else
         'MsgBox "未选择文件"
    End If
    
    Set objFileDialog = Nothing