Excel 批量导入本地图片可以这么玩

近日，微软在Excel新增一个插图功能：将图片直接放置在单元格中，路径如下图所示：

这使得Excel导入本地图片时有了新的交互效果，图片可以放置在单元格，也可以弹出，弹出后又可以缩回，图片还可以被公式直接引用，以下视频是效果演示：

如何使得图片按照产品ID批量显示到指定单元格？这需要借助VBA。之前我介绍了Excel插入本地图片的代码（参考：Excel显示指定产品图片），原理和前期的代码一样，依然是for循环，只是调用时使用新的InsertPictureInCell功能：

Sub pictool()
    Dim wu As Range
    For Each wu In Selection
        If Not IsEmpty(wu) Then
            wu.Select
            Selection.InsertPictureInCell ("D:\公众号文件\案例\零售案例\商品管理：陈列销售库存看板 Excel版\产品照片\" & wu.Value & ".png ")
        End If
    Next
  
End Sub

把代码中的路径替换为你的路径，存放到宏工作簿或者加载宏进行重复使用。代码没有对不存在图片时进行条件判断，如有需要可以增加一个IF语句。

Power BI批量显示本地图片和Excel操作颇有不同，如有需要参考此文：Power BI本地图片显示最佳解决方案