Я создал код, который открывает гиперссылку изображения и добавляет его в мой лист Excel в определенной ячейке. Код работает как задумано. Но все же часть изображения не загружается должным образом.
Когда я нахожу «сломанную картинку», я могу перейти к гиперссылке, нажать ее и открыть в своем браузере. Когда я снова запускаю код, картинка добавляется в таблицу Excel, как и предполагалось.
Поэтому проблема должна заключаться в том, что время загрузки, чтобы открыть ссылку, слишком велико, и когда я открыл ее вручную,затем он добавляется в мой кэш, и поэтому загрузка происходит быстрее.
Так что мой вопрос: есть ли способ увеличить допустимое время загрузки, предварительно загрузить его и добавить в кэш, или что-то, что у меня есть? хотя примерно?
Он состоит из 2-300 картинок, и мне придется делать это вручную, когда меняется большинство картинок, поэтому я не могу каждый раз открывать "Сломанные картинки" вручную
Мой код выглядит следующим образом
With OutputSheet.Cells(StartRow + SecondRow, 0 + OutTop10)
PicLink = DataSheet.Cells(Top10 + SecondRow + DataRow, 6)
On Error GoTo ErrJumpDR
Set Pic = .Parent.Pictures.Insert(PicLink)
Pic.Top = .Top
Pic.Left = .Left
Pic.Height = .Height
Pic.Width = .Width
End With
ErrJumpDR:
On Error GoTo -1
Я использую это решение, которое я уже видел в нескольких местах и немного подстроил под мою проблему. «On Error GoTo» также работает как задумано, поскольку некоторые картинки не существуют (я знаю, что большинство картинок, которые не загружаются, существуют: D.), А также для поддержания работоспособности кода, когда его нетзагрузить картинку. Проблема была еще и до того, как я добавил OnError goto
Надеюсь, что есть кто-нибудь, кто может помочь:)