选择word的复选框，如何实现自动插入图象，图象为同目录下，与该WORD名称相同的图片。

附件

皇马.rar(194.98 KB)

2011-4-14 12:19, 下载次数: 6

复制内容到剪贴板

代码:

Sub Test(myBox As Object)
    Dim docname As String
    Application.ScreenUpdating = False
    With ActiveDocument
        docname = Split(.Name, ".")(0) & "-" & myBox.Caption
        If myBox.Value = True Then
            .InlineShapes.AddPicture(FileName:=.Path & "\" & docname & ".jpg", Range:=.Bookmarks("\endofdoc").Range).AlternativeText = docname
        Else
            For Each aInlineShape In .InlineShapes
                If aInlineShape.AlternativeText = docname Then aInlineShape.Delete
            Next
        End If
    End With
    Application.ScreenUpdating = True
End Sub
Private Sub CheckBox1_Click()
    Test CheckBox1
End Sub