求高手帮忙把E列的图片链接里的图片直接生成到F列的单元格内

richardzhu15

求高手帮忙把E列的图片链接里的图片直接生成到F列的单元格内

quqiyuan

图片高度需要调整单元格高度，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    t = Timer
    Application.ScreenUpdating = False
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    sht.Pictures.Delete
    arr = sht.Range("e9", sht.Cells(Rows.Count, 5).End(3))
'    On Error Resume Next
    For i = 1 To UBound(arr)
        If arr(i, 1) <> Empty Then
            With sht.Pictures.Insert(arr(i, 1))
                .Top = sht.Cells(i + 8, 6).Top
                .Left = sht.Cells(i + 8, 6).Left
                .Height = sht.Cells(i + 8, 6).RowHeight
                .Width = sht.Cells(i + 8, 6).ColumnWidth
            End With
            If Err.Number <> 0 Then Debug.Print "图片地址错误，请检查。"
        End If
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共耗时：" & Format(Timer - t, "0.0000") & " 秒！！！", 64
End Sub
   
   
   

richardzhu15

quqiyuan 发表于 2025-4-1 12:56
代码如下。。。
Sub test()
    Application.ScreenUpdating = False

收到，谢谢，试了可以使用，就想问问，如果行数增加，也可以使用，还是要修改一下

quqiyuan

richardzhu15 发表于 2025-4-1 15:00
收到，谢谢，试了可以使用，就想问问，如果行数增加，也可以使用，还是要修改一下

可以的，根据E列最后一个有数据的单元格。