如何修改代码后插入图片并透明

YZLSZAJ

    请问各位老师：这是duquancai老师批量插入图片，并设置图片版式：浮于文字上方并上下、左右都居中的代码。    现在我想在第1页第1行输入“EXCEL HOME 论坛”并设置页码，当运行代码后，图片为透明，即：每页都自动显示“EXCEL HOME 论坛”并连续页码，见附件。谢谢。



图片设置透明.rar (296.42 KB, 下载次数: 28)

2018-4-24 20:32 上传

点击文件名下载附件

duquancai

Sub 插入图片()
    Dim pn$, fid As FileDialog, Doc As Document
    Set fid = Application.FileDialog(3)
    fid.Filters.Clear: fid.AllowMultiSelect = -1
    fid.Filters.Add "图片文件", "*.emf;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff"
    Set Doc = ActiveDocument
    Doc.Content.Text = Empty
    With Doc.Sections(1)
        l = .PageSetup.LeftMargin
        t = .PageSetup.TopMargin
        w = .PageSetup.PageWidth
        h = .PageSetup.PageHeight
        With .Footers(1)
            .PageNumbers.Add 1
            .Range.Font.Size = 16
            .Range.Font.Name = "Times New Roman"
        End With
    End With
    fid.InitialFileName = "\E:"
    If fid.Show = -1 Then
        For i = 1 To fid.SelectedItems.Count - 1
            Selection.InsertBreak Type:=7
        Next
        For Each fn In fid.SelectedItems
            n = n + 1
            With Doc.GoTo(1, 1, n)
                .Text = "EXCEL HOME 论坛"
                .Font.Name = "Times New Roman"
                .Font.Bold = -1
                .Font.Size = 22
                With Doc.Shapes.AddPicture(fn, 0, 1, -l, -t, w, h, .Duplicate)
                    .PictureFormat.TransparencyColor = RGB(255, 255, 255)
                End With
            End With
        Next
    End If
    MsgBox "ok!"
End Sub

YZLSZAJ

duquancai 发表于 2018-4-24 21:45
Sub 插入图片()
    Dim pn$, fid As FileDialog, Doc As Document
    Set fid = Application.FileDialo ...

非常感谢duquancai 老师，代码很好！