mfc图片控件显示图片_Excel显示指定产品图片

前言：Power 系列插件目前无法做到，还得上VBA，暂存于Power BI系列组件在服饰行业的应用 专栏，供服饰业同仁参考。

无图无真相。

有图给商品管理提供便利，给销售插上翅膀。那么，如何在Excel方便的查看产品图片？（前提是有图，并且命名规范。）

如果查看单个产品图片，试试HYPERLINK这个函数，直接跳转。

如果批量跳转网页显示图片，可使用如下VBA代码，注意一次选择产品不要太多，否则浏览器不停弹窗，像中毒……

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

如果批量在Excel单元格直接显示图片，试试以下代码：

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 删除()
'微信公众号wujunmincn知乎wujunmin
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
End Sub