excel - 从 URL 插入图像

Question

多年来，我一直在 Excel 中使用以下宏，没有任何问题，但从今天开始它不再有效。任何帮助将不胜感激。该宏用于将图像从 URL 链接插入到单元格中。

尝试使用以下两个唯一 URL 运行宏。URL #1 过去可以工作，但 URL #2 只能工作。

1. https://system.netsuite.com/core/media/media.nl?id=40635&c=5040682&h=apoQ4huHLAwj5ZuOlYD4qN7dcY6tFcHthCj7xBlIow5p71IJ

• 此 URL 停止工作。我使用这个宏从 NetSuite URL 中提取图像 4 年没有任何问题。

2. https://cdn.shopify.com/s/files/1/0991/4740/products/media_9f5fad77-14c4-4c09-99a2-e99771eda949_2048x.jpg?v=1636968278 - 此网址适用于宏

Sub Netsuite_Image_ATS()
   
    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    Dim filenam As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Set Rng = ActiveSheet.Range("B2", Range("B" & Rows.Count).End(3)(1))
    For Each cell In Rng
        filenam = cell.Value
        If filenam <> "" Then
            xCol = cell.Column + 1
            Set xRg = Cells(cell.Row, xCol)
            ActiveSheet.Shapes.AddPicture Filename:=filenam, _
                LinkToFile:=msoFalse, SaveWithDocument:=msoCTrue, _
                Left:=xRg.Left + (xRg.Width - 100) / 2, _
                Top:=xRg.Top + (xRg.Height - 100) / 2, _
                Width:=100, _
                Height:=100

        Else
            Set Pshp = Nothing
            Range("B2").Select
        End If
        ThisWorkbook.Save
    Next
    Application.ScreenUpdating = True
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("A" & Rows.Count).End(3)(2).EntireRow.Delete
End Sub

标签： excelvbaimage