IMAGE函数用过吗？

HI，大家好，我是星光。

前几天会员群里有个漂亮头像的朋友提了个问题，如何将指定单元格的图片链接显示成图片。

这个问题看似复杂，但如果你知道IMAGE函数的存在的话，摊手，就会变得极其简单。

如下图所示，B列是图片链接网址，在C2单元格输入以下公式向下复制填充即可。

=IMAGE(B2)

IMAGE函数是Office 365中的新函数，可以根据指定网址生成图片，并按指定大小嵌入到单元格中。

这家伙一共有5个参数，第1参数必需，其它参数均为可选。其中第1参数指定图片网址（不是电脑中图片的路径，这厮对此居然不支持，多少让人无语

）

…第2参数添加描述图片的文本，第3参数表示调整图片大小时是否保持纵横比等，第4和第5参数分别指定图片的高度和宽度。

如果省略3~5参数，则在保持纵横比的情况下，将公式所在单元格的行高和列宽作为图片的高和宽。

■批量生成二维码

关于这个函数的实际应用，我再举一个常见的例子ʅ（´◔౪◔）ʃ

有些学员朋友在工作中，需要根据指定单元格的信息生成二维码。

如上图所示，B2单元格输入以下公式即可。

IMAGE函数生成二维码 ▼

=IMAGE('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & A2)

公式的第1参数是qrserver.com网站的QR CODE API接口，它可以免费、公开、稳定的生成二维码。IMAGE函数可以将该网址生成的二维码自动抓取并嵌入到公式所在单元格中。

■VBA替代方案

先说一个坏消息，如果你的Excel版本不是365，则目前暂时无法使用IMAGE函数

。

再说一个好消息，但你可以使用以下VBA代码

。

代码看不全可以左右拖动...▼

Sub getIMage() Dim rngData As Range, rng As Range, rngWhere As Range, shp As Shape, image As Picture On Error Resume Next Set rngData = Application.InputBox('请选择图片链接所在的单元格区域', Type:=8) Set rngData = Intersect(rngData.Parent.UsedRange, rngData) If rngData Is Nothing Then MsgBox '选择的单元格范围不存在数据！': Exit Sub Set rngWhere = rngData.Offset(0, 1) '图片存放单元格 Application.ScreenUpdating = False rngWhere = '' For Each shp In ActiveSheet.Shapes '如果旧图片存放在目标图片存放范围则删除 If Not Intersect(rngWhere, shp.TopLeftCell) Is Nothing Then shp.Delete Next For Each rng In rngData '遍历网址单元格 Set image = ActiveSheet.Pictures.Insert(rng.Value, False) '插入图片 With rng.Offset(0, 1) '调整图片的位置和大小 image.Top = .Top + 3 image.Left = .Left + 3 image.Width = .Width image.Height = .Height - 6 End With Next Application.ScreenUpdating = True If Err Then MsgBox Err.Description Else MsgBox '处理完成' End IfEnd Sub

复制代码运行后，系统会弹出一个选择框，鼠标框选图片链接所属的单元格区域后确定，稍等片刻，即可在隔壁列显示对应的图片。

除此之外，如果你的需求并不是将网址生成的图片显示在单元格中，而是下载到电脑的文件夹内……那当然也不是不行。