[已解决]怎么选中excel表中最后一张图片

daitq7018 · 发表于 2021-10-20 08:34

怎么用vba选中excel表中列向位置不确定的最后一张图片

最佳答案

cutecpu

2021-10-20 12:30

Sub demo()
For Each sp In ActiveSheet.Shapes
If sp.Top > Max Then Max = sp.Top: Set o = sp
Next
o.Select
End Sub

zhanglei1371 · 发表于 2021-10-20 09:15

取每个shape的left属性，最后排序下就OK。

daitq7018 · 发表于 2021-10-20 09:18

zhanglei1371 发表于 2021-10-20 09:15
取每个shape的left属性，最后排序下就OK。

本来就在同一列的，left属性没有用

zhanglei1371 · 发表于 2021-10-20 09:54

daitq7018 发表于 2021-10-20 09:18
本来就在同一列的，left属性没有用

说错了，是top属性。
数组收集.top-----.name
然后排序
取shapes(name）即可。

风林火山 · 发表于 2021-10-20 11:02

大神，还换个号来

风林火山 · 发表于 2021-10-20 11:10

复制代码

大神是这样吗

心正意诚身修 · 发表于 2021-10-20 11:53

风林火山发表于 2021-10-20 11:10
大神是这样吗

如果是按顺序排的话，这样应该是没有问题的。我也看了。最后面的一个是3，反而前面的序号大一点，所以不对。刚刚楼上说的TOP的位置那个我觉得应该是可行的。

cutecpu · 发表于 2021-10-20 12:30

Sub demo()
For Each sp In ActiveSheet.Shapes
If sp.Top > Max Then Max = sp.Top: Set o = sp
Next
o.Select
End Sub

daitq7018 · 发表于 2021-10-20 15:11

本帖最后由 daitq7018 于 2021-10-20 15:58 编辑

cutecpu 发表于 2021-10-20 12:30
Sub demo()
For Each sp In ActiveSheet.Shapes
If sp.Top > Max Then Max = sp.Top: Set o = s ...

谢谢，功能能实现

		自动登录	找回密码
密码			注册