批量插图表格宏

1、打开WPS开发工具，点击VB宏---输入宏名称---点击创建

2、在点创建后弹出的窗口，把下面代码窗口的内容复制进去，然后按ctrl+s保存，然后关闭代码编辑窗口

以下是宏代码：

Sub 批量插图()
Dim rng As Range
Dim cell As Range
Dim pic As Picture
Dim url As String
Dim i As Long

Application.ScreenUpdating = True
Set rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)  '如果需要更改列，请把B改成你需要的列，例如，需要改成A列第1行开始，Range("A1:A" & Range("A" & Rows.Count)
For i = rng.Cells.Count To 1 Step -1
    Set cell = rng.Cells(i)
    url = cell.Value
    If InStr(1, url, "http") = 1 Then
        If cell.MergeCells Then
            Set pic = cell.MergeArea.Cells(1, 1).Parent.Pictures.Insert(url)
            pic.Top = cell.MergeArea.Cells(1, 1).Top
            pic.Left = cell.MergeArea.Cells(1, 1).Left
            pic.ShapeRange.LockAspectRatio = msoTrue
            pic.ShapeRange.Height = cell.MergeArea.Height / 2 '压缩高度到原来的2分之一
            pic.ShapeRange.Width = cell.MergeArea.Width / 2 '压缩高度到原来的2分之一
        Else
            Set pic = cell.Parent.Pictures.Insert(url)
            pic.Top = cell.Top
            pic.Left = cell.Left
            pic.ShapeRange.LockAspectRatio = msoTrue
            pic.ShapeRange.Height = cell.Height / 2 '压缩高度到原来的2分之一
            pic.ShapeRange.Width = cell.Width / 2 '压缩高度到原来的2分之一
        End If
        cell.Value = ""
    End If
Next i
Application.ScreenUpdating = True
End Sub

3、将需要插入图片的单元格长宽调整好适当的大小，以上代码默认在B列，第2行往下读取图片链接并在图片链接位置插入原图的二分之一，其他尺寸自行修改

4、点击VB宏，运行刚才创建的宏

最终效果：