用VBA插入word一张图片自动布满整张A4纸。

EH2003

插入一张图片，让图片布满整张A4页面，素材见附件。
最终效果图如下：

活在理想的世界

插到什么地方？EXCEL里面吗？
把单元格设置成A4纸大小？

duquancai

没有看见你的附件在哪里？

duquancai

Sub shishi()
    Dim pf$, rng As Range, fid As FileDialog
    i = InputBox("输入插入页面的""页码""", , 1)
    If i = "" Then Exit Sub
    Set fid = Application.FileDialog(3)
    fid.Filters.Clear: fid.AllowMultiSelect = False
    fid.Filters.Add "图片文件", "*.emf;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff"
    If fid.Show = -1 Then pf = fid.SelectedItems(1)
    If pf = "" Then Exit Sub
    Set rng = Selection.GoTo(1, 1, i).Bookmarks("\page").Range
    With ActiveDocument
        l = .PageSetup.LeftMargin
        t = .PageSetup.TopMargin
        w = .PageSetup.PageWidth
        h = .PageSetup.PageHeight
        .Shapes.AddPicture pf, 0, 1, -l, -t, w, h
    End With
    MsgBox "图片已经插入到第" & i & "页！"
End Sub

EH2003

十分感谢，达到要求。