VBA宏把A列的图片链接转化为图片

大数据分析学习者

已于 2023-06-28 10:29:57 修改

阅读量2.1k

点赞数 1

文章标签： python

于 2023-06-27 16:13:26 首次发布

本文链接：https://blog.csdn.net/weixin_42921227/article/details/131419393

版权

博客围绕处理图片链接展开，提到图片链接可能在不同列，写死A列不利于操作，因此加入列参数以方便处理。还给出了使用宏的相关代码，如定义图片路径、单元格、图片等变量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

`1、VBA代码`

Sub ConvertImagePathToEmbeddedImage()
Dim imagePath As String
Dim currentCell As Range
Dim pic As Picture

'将每个行高设置为2厘米
Rows.RowHeight = Application.CentimetersToPoints(2)

For Each currentCell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    imagePath = currentCell.Value
    If imagePath <> "" Then
        On Error Resume Next '跳过无效的图片路径
        '将图片插入到单元格中
        Set pic = ActiveSheet.Pictures.Insert(imagePath)
        With pic
            .Width = Application.CentimetersToPoints(2) '设置图片宽度为2厘米
            .Height = Application.CentimetersToPoints(2) '设置图片高度为2厘米
            .Top = currentCell.Top '设置图片上边缘与单元格上边缘对齐
            .Left = currentCell.Left '设置图片左边缘与单元格左边缘对齐
            .Placement = xlMoveAndSize '将图片嵌入到单元格中
        End With
    End If
Next currentCell

MsgBox "完美结束"

最低0.47元/天解锁文章