如何获取application.selection选中的shape的ID？注意不能用name属性去匹配，会有重复

liucqa

Sub test()
    MsgBox TypeName(Selection)
    If TypeName(Selection) = "Picture" Then MsgBox Selection.ShapeRange.ID
End Sub

For Each s In ActiveSheet.Shapes
        Debug.Print s.Name, s.ID, s.Type, s.OLEFormat.Object.ShapeRange.ID
    Next

picture对象
s.id=s.OLEFormat.Object.ShapeRange.ID

别的自己测试一下吧，估计都类似

香川群子

我知道了。我误以为Shapes(Index)中的Index值，就是你所需要的ID，

而实际上不是一回事。

那么如同11楼所说，这个Id本来就可以直接得到返回i啊。不需要再费心去想了。

Selection.ShapeRange.ID

cg1

liucqa 发表于 2011-12-15 15:39
Sub test()
    MsgBox TypeName(Selection)
    If TypeName(Selection) = "Picture" Then MsgBox Selec ...

这个是正确的。

apaul193

弱弱的问一句，我想在addshape的时候就给这个shape命个名，可以吗，如何命名啊？

xiaopeng3017

4年前的问题了，我也遇到了。说一下：.id获得的东西和index没有关系；shapes（index）引用对象时，index是根据shapes.count和当前引用对象在所有shape对象创建时的顺序决定的。我的办法是，比如给每个文本框添加可是别的文本信息，用for next 在count中遍历，这时的i就是index，但count中某一shape被删除后，后面的index就都变小了，好像一串珠帘。