Тестирование изображения, связанного с ссылкой

Question

, так что я уже давно занимаюсь этим форумом, а также на других сайтах, но я просто не мог найти способ решить эту проблему.

Итак, небольшая проблема, с которой я столкнулся, заключается в том, что у меня очень длинная электронная таблица Excel со многими разными идентификаторами или номерами, которые вы хотите назвать. Из этих идентификаторов я создаю настраиваемую ссылку, которая требует от них ссылки на конкретное изображение, которое затем вставляется в конкретную ячейку в этой таблице. Обратите внимание, что мне действительно нужен этот код, поэтому таблица составляет около 9300 строк/строк. Проблема заключается в том, что не каждый идентификатор имеет прикрепленное к нему изображение, а это означает, что некоторые ссылки не работают (изображения нет, но также нет текста в основном пустой страницы). Есть ли способ, которым я могу просто позволить коду проходить через него, чтобы он игнорировал генерируемую ошибку 1004, которая в основном всегда говорит мне, что он не может найти что-то и остановится в этот момент.

Я большой нуб в VBA, поэтому, пожалуйста, когда ответ не используется для сложного языка. Я буду вставлять код ниже, однако ссылка является конфиденциальной, поэтому я заменил ссылку на ссылку или что-то в этом роде. Я попробовал несколько методов On Error, но ошибка снова возникла, или Excel разбился, но вот рабочий код без каких-либо изменений для удаления этой ошибки. Заранее благодарим за помощь.

Sub Test() 

    I = 0 

    For I = 5 To 9373 

     If Tabelle2.Cells(I, 9) = "bekannt" Then 
      Call GetShapeFromWeb("Part 1 of the link" & Tabelle2.Cells(I, 10).Value & "Part 2 of the link", Tabelle2.Cells(I, 13)) 
     End If 

    Next I 

End Sub 

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) 
    Dim shp As Shape 

    With rngTarget 
     With .Parent 
       .Pictures.Insert strShpUrl 'Error Occurs here 
       Set shp = .Shapes(.Shapes.count) 
      End With 
       shp.Left = .Left 
       shp.Top = .Top 
     End With 

    Set shp = Nothing 

End Sub 

Одна последней вещь, чтобы заметить, некоторые из слов являются немецкими, из-за меня быть немецким и работать с немецкими переменными, или ссылками, или электронных таблицами. И я использую excel 2007. Ошибка возникает в следующей строке «.Pictures.Insert strShpUrl», потому что она не может найти изображение для вставки.

Thansk много. С наилучшими пожеланиями Крис

// EDIT Одна идея, я мог бы, что я не знаю, если это возможно, но страница она направлена, когда изображение не там отображается следующая информация «Не удается найти/part/of/thelink/" Возможно ли использовать код, чтобы увидеть, отображается ли это сообщение, и, возможно, проверить это? Если да, то как это будет работать? :) Может быть, он может быть добавлен в оператор if, который уже тестирует эту подзадачу.

// EDIT У кого-нибудь есть идея? : S Возможно, что я написал выше в редактировании, мог бы работать? : S Можно ли проверить, что msgbox отображает что-то, но наоборот, поэтому, если msgbox не соответствует следующим образом, выполните следующие действия. Если бы это сработало, это было бы здорово! : S Или, может быть, вместо того, чтобы пытаться использовать команды on error, пытающиеся выполнить его с помощью оператора if в пределах GetShapeFromWeb? Любая помощь приветствуется.

Answer 1

Это должно сработать. Однако вы написали, что вы пробовали несколько On Error Methods безуспешно ... что это для вас?

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) 
    Dim shp As Shape 
    Dim Er As Long: Er = 0 
    On Error GoTo gswError 

    With rngTarget 
     With .Parent 
      .Pictures.Insert strShpUrl 
      If Er <> 0 Then Exit Sub 
      Set shp = .Shapes(.Shapes.Count) 
     End With 
     shp.Left = .Left 
     shp.Top = .Top 
    End With 

    Set shp = Nothing 
    Exit Sub 
gswError: 
    Er = Err 
    Resume Next 
End Sub 

Answer 2

вы пробовали на суб GetShapeFromWeb, размещая в заявлении об ошибке на этом пути:

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) 
Dim shp As Shape 

On Error GoTo Err1 'inserting a picture from a blank link will cause an error... thus... 

With rngTarget 
    With .Parent 
      .Pictures.Insert strShpUrl 
      Set shp = .Shapes(.Shapes.Count) 
     End With 
      shp.Left = .Left 
      shp.Top = .Top 
    End With 

Err1: '...sidestep 

Set shp = Nothing 

End Sub