跳转至

EXCEL VBA 图片链接自动生成图片

该宏(脚本)可以将Excel单元格中的图片超链接自动转换为图片,并创建到新的Excel单元格 。


打开EXCEL的 [开发者工具]

开启开发者工具开始-->选项-->自定义工作区-->开发者工具

开启开发者工具

创建VBA宏

前往开发者工具创建一个VBA宏(脚本)开发工具-->宏-->(填写宏名称)-->创建

创建宏

编写VBA宏

在弹出窗口填写以下代码

Sub 图片自动生成()
    '将A列图片链接自动获取并生成到B列
    '将2-21行的图片链接获取为图片,并重新设定单位格宽度(图片宽度)
    Columns("B:B").ColumnWidth = 36.22
    Rows("2:21").RowHeight = 150
    '插入图片(假设图都是4:3的,否则还涉及要取得原始尺寸,如果图小,可以直接把200,150改为-1,-1)
    For i = 2 To 21
    ActiveSheet.Shapes.AddPicture(Cells(i, 1).Value, msoCTrue, msoCTrue, Range("B" & i).Left, Range("B" & i).Top, 200, 150).AlternativeText = "Error"
Next
End Sub
编写宏

运行宏

开发者工具-->宏-->(选择宏)-->运行

运行宏