为减小文档大小，怎样使表格插入的图片只是链接

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub insertpic()

    Dim i, j, k As Long
    Dim filpath As String
    Dim rng As Range
    Dim s As String
    With Sheet1
            For Each im In ActiveSheet.Shapes
                im.Delete
            Next
        'For i = 1 To .Range("a1000").End(xlUp).Row         '循环的值由A列行数决定
        For i = 0 To 1
        For j = 2 To 7 Step 5
        For k = 0 To 1
        'filpath = ThisWorkbook.Path & "\" & .Cells(i, 1).Text & ".jpg"          '图片路径
        'filpath = "E:\02" & "\" & .Cells(6 + i * 8, 2).Text & ".jpg"
        'filpath = "E:\02" & "\" & .Range("B" & (6 + i * 8)).Text & ".jpg"
        filpath = "E:\02" & "\" & .Cells(6 + i * 8 + k, j).Text & ".jpg"
            If Dir(filpath) <> "" Then          '查找名字相同并插入图片，列出图片名字
                .Pictures.Insert(filpath).Select            '选择插入的图片
                Selection.ShapeRange.LockAspectRatio = msoFalse
                'Set rng = .Cells(i, 3)         '设置图片插入的位置，第三列
                'Set rng = .Range("B" & (6 + i * 8) & ":F" & (6 + i * 8))
                'Set rng = .Range("B" & (6 + i * 8)).MergeArea
                Set rng = .Cells(6 + i * 8 + k, j).MergeArea
                        With Selection
                            .Top = rng.Top + 5
                            .Left = rng.Left + 5
                            .Width = rng.Width - 10
                            .Height = rng.Height - 10
                        End With
'                Set rg = rng.TopLeftCell
'                    If rg.MergeCells = True Then
'                        With Selection
'                            .Top = rg.MergeCell.Top + 5
'                            .Left = rg.MergeCell.Left + 5
'                            .Width = rg.MergeCell.Width - 10
'                            .Height = rg.MergeCell.Height - 10
'                        End With
'                    Else
'                        With Selection
'                            .Top = rg.Top + 5
'                            .Left = rg.Left + 5
'                            .Width = rg.Width - 10
'                      

5、最后我们就可以看到成功的在表格当中插入了图片，

6、我们还可以在文档当中看到文件的大小是非常小的，因为我们所插入的图片只是链接而已，而不是图片本身，