TOMOCAT的留言板

[TOMOCAT]

大家好，这里是我的留言板，如果有问题，欢迎大家留言，我会第一时间进行回复

[axin520]

你好，在论坛里搜索关于图片路径转为图片的时候，发现了一段代码，确实可用，但是不能批量，不知道怎么改才能批量，能帮忙看看么？ Sub Test() On Error Resume Next Dim Rng As Range 'Rng---存放有路径的单元格，并且图片插入到此处 Set Rng = Sheet1.Range("a1") With ActiveSheet.Pictures.Insert(Rng.Value) .ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定 .Left = Rng.Left .Width = Rng.Width .Top = Rng.Top .Height = Rng.Height End With End Sub 以上这段代码运行的时候，只能A1单元格变为图片，如果A2-A99都有图片路径的时候，就需要更改A1为A2这样一直更改运行才行。那怎么样才能做到一运行就都更改显示图片呢？望回复。谢谢。。。

[TOMOCAT]

引用 1 楼 axin520 的回复:

你好，在论坛里搜索关于图片路径转为图片的时候，发现了一段代码，确实可用，但是不能批量，不知道怎么改才能批量，能帮忙看看么？ Sub Test() On Error Resume Next Dim Rng As Range 'Rng---存放有路径的单元格，并且图片插入到此处 Set Rng = Sheet1.Range("a1") With ActiveSheet.Pictures.Insert(Rng.Value) .ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定 .Left = Rng.Left .Width = Rng.Width .Top = Rng.Top .Height = Rng.Height End With End Sub 以上这段代码运行的时候，只能A1单元格变为图片，如果A2-A99都有图片路径的时候，就需要更改A1为A2这样一直更改运行才行。那怎么样才能做到一运行就都更改显示图片呢？望回复。谢谢。。。

写个循环就好啦