title: Excel: hover preview over excel image link - Follow Up
body: <p><a href="https://stackoverflow.com/questions/43923102/hover-preview-over-excel-image-link">Hover preview over excel image link</a></p>
  
  <p>Hi, All - this is a follow up question on this other question. Proposed solution for multiple URL is not working for me: it just keeps creating screenshots indefinitely. What should I fix so that it only creates one and let me use the other RESET function to remove screenshot?</p>
  
  <p>Help please! 
  @user1274820
  <a href="https://stackoverflow.com/users/1274820/user1274820">https://stackoverflow.com/users/1274820/user1274820</a></p>
  
  <p>Example file
  <a href="https://wetransfer.com/downloads/e1478c699e43f1618879468e50006dc120190917130518/74fc7a" rel="nofollow noreferrer">https://wetransfer.com/downloads/e1478c699e43f1618879468e50006dc120190917130518/74fc7a</a></p>
  
  <pre><code>Dim DoOnce As Boolean
  Public Function OnMouseOver(URL As String, TheCell As Range)
  Reset
  If Not DoOnce Then
      DoOnce = True
      With ActiveSheet.Pictures.Insert(URL)
          With .ShapeRange
              .LockAspectRatio = msoTrue
              .Width = 300
              .Height = 200
          End With
          .Left = Cells(TheCell.Row, TheCell.Column + 1).Left
          .Top = Cells(TheCell.Row, TheCell.Column + 1).Top
          .Placement = 1
          .PrintObject = True
      End With
  End If
  End Function
  
  Public Function Reset()
  If DoOnce Then
      DoOnce = False
      ActiveSheet.Pictures.Delete
  End If
  End Function
  </code></pre>