EXCEL 利用VBA 实现图片随单元格的值变化

最新推荐文章于 2024-09-12 09:07:03 发布

野生研究员

最新推荐文章于 2024-09-12 09:07:03 发布

阅读量2.8k

点赞数 2

文章标签： EXCEL VBA

本文链接：https://blog.youkuaiyun.com/qq_25846269/article/details/98629435

版权

直接上代码在sheet1里面，顺便修改sheet1为Sht1


Sub Image_Change()
    Dim x%, y%, w%, h%, iPath$
    
    With ActiveSheet.Shapes.Range(Array("图片"))
        x = .Left '记录坐标点
        y = .Top '记录坐标点
        w = .Width '记录图片高度
        h = .Height '记录图片宽度
        .Delete '删除旧图
    End With
    
    iPath = ThisWorkbook.Path & "\Image\" & [C1] & ".gif" '生成新图片在硬盘上的路径
    
    Sht1.Pictures.Insert(iPath).Select '插入新图片
    
    With Selection
        .Name = "图片" '改新图的名字，与旧图保持一致
        .Left = x '改新图的x坐标，与旧图保持一致
        .Top = y '改新图的y坐标，与旧图保持一致
        .Width = w '改新图的宽，与旧图保持一致
        .Height = h '改新图的高，与旧图保持一致
    End With
    '偷天换日完成
    [C1].Select '伪造现场，假装什么事情都没发生
    
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call Image_Change
End Sub

本实例下载地址：https://download.youkuaiyun.com/download/qq_25846269/11484993