[已解决]如何批量调整图片的位置（或如何更改TopLeftCell的address）

mfk1288

附件中单元格内有一或到三张图片。如何批量调整图片的位置。如一个单元格里有三张图片的，就把第一张图片放在当前单元格，第二张图片放在当前单元格的右边一格。，第三张就放在当前单元格的右二格。
或者换一种说法，
For Each sh In ActiveSheet.Shapes  
debug.print sh.topleftcell.address
这里如何修改sh.topleftcell.address为指定单元格的位置。如sh.topleftcell.address=cells(1,1).address（这句是错误的，运行不了）

最佳答案

月排行榜 / 总排行榜

MOY838840554

2021-7-9 20:11

首先topleftcell是Range
address是只读属性，不能直接赋值
决定Shape的位置的属性是top(离上边的距离)和left(离左边的距离)
单元格也是有top和left的
所以让Shape.top=Range.top,Shape.left=Range.left就能移位的
你这里难的是超过1张图片的往右边单元格移
解决方法就是用字典计数

跳转到最佳答案楼层

mfk1288

补附件！

MOY838840554

首先topleftcell是Range
address是只读属性，不能直接赋值
决定Shape的位置的属性是top(离上边的距离)和left(离左边的距离)
单元格也是有top和left的
所以让Shape.top=Range.top,Shape.left=Range.left就能移位的
你这里难的是超过1张图片的往右边单元格移
解决方法就是用字典计数