Excel显示指定产品图片

Sub 网页显示图片()
Dim StyleID As Range
For Each StyleID In Selection
  If Not IsEmpty(StyleID) Then
     ActiveWorkbook.FollowHyperlink "https://www.***/" & StyleID.Value & ".jpg"
  End If
Next
End Sub

Sub 单元格显示图片()
'ExcelHome 
'http://club.excelhome.net/thread-1188085-1-1.html
On Error Resume Next
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left
    MT = MR.Top
    MW = MR.Width
    MH = MR.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    Selection.ShapeRange.Fill.UserPicture _
       "路径" & MR.Value & ".jpg"    
   End If
Next
End Sub

Sub 删除()
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
End Sub