Excel显示指定产品图片
无图无真相。
有图给商品管理提供便利，给销售插上翅膀。那么，如何在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 删除()
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-02-25，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读