title: Insert image filepath into cell as hyperlink and image itself into comment
body: <p>I'm trying to create an Excel macro that takes a picture or pictures as input. It then adds the image as a comment to the selected cell. I have this much complete.</p>
  
  <p>What I want to do next is take the path of the picture and insert it as a hyperlink in the cell.<br>
  e.g.<br>
  Image - \server\share\test\image.jpg<br>
  Insert image as comment<br>
  Insert image path as text</p>
  
  <p>Here is my code so far:</p>
  
  <pre><code>Sub ImageLinkComment()
  
  Dim Pict() As Variant
  Dim ImgFileFormat As String
  Dim PictCell As Range
  Dim lLoop As Long
  Dim sShape As Picture
  
  ActiveSheet.Protect False, False, False, False, False
  ImgFileFormat = "All Picture Files(*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bpm;*.gif;*.gfa;*.emz;*.wmz;*.pcz;*.tif;*.tiff;*.cgm;*.eps;*.pct;*.pict;*.wpg;*.pcd;*.pcx;*.cdr;*.fpx;*.mix), *.bmp"
  
   'Note you can load in any nearly file format
  Pict = Application.GetOpenFilename(ImgFileFormat, MultiSelect:=True)
  If Not IsArray(Pict) Then
      Debug.Print "No files selected."
      Exit Sub
  End If
  
  Set PictCell = Selection.Cells(1)
  For lLoop = LBound(Pict) To UBound(Pict)
  
      PictCell.AddComment
      PictCell.Comment.Visible = False
      PictCell.Comment.Shape.Height = 215
      PictCell.Comment.Shape.Width = 195
      PictCell.Comment.Shape.Fill.UserPicture Pict(lLoop)
  
      Set PictCell = PictCell.Offset(1)
  Next lLoop
  
  End Sub
  </code></pre>