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

cg1

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

当用户选择一个文本框或者矩形等shape的时候用 application.selection 可以获取对应的对象并进行操作，但是如何获取这个对象所对应的shape.id属性呢？

请注意，application.selection 返回选中文本框的对象是textbox，不是shape。因此无法得到id属性。但是又不能用 application.selection.name 与 shape.name去匹配，因为shape.name是可以重复的，name一样并不一定是同一个textbox

蓝桥玄霜

建议采用。ActiveX控件。

香川群子

楼主，给你编了个查找返回当前图形的Shape Index的自定义函数：

Function GetShapeIndex()
    CurrentName = Selection.Name  '存储当前所选图形名称，以便今后恢复原状
    SearchName = "CurrentShape_" & Format(Date, "yyyymmdd") '生成一个不会和现有表中名称相同的名称
    Selection.Name = SearchName '把当前图形名称改为这个新名称

    For Each sp In ActiveSheet.Shapes '遍历表中所有图形
        ID = ID + 1 '获取图形ID
        If sp.Name = SearchName Then '如果该ID图形名称和新名称相同，即该ID就是所求结果
            Selection.Name = CurrentName '把该图形名称恢复原来名称
            Exit For
        End If
    Next
    GetShapeIndex = ID
End Function

下面是代码中的运用实例：
Sub Test()
    ActiveSheet.Shapes(2).Select '选择图形2
   
    ShapeId = GetShapeIndex '运行自定义函数返回图形ID=2
   
    [a1].Select '选择单元格A1
    ActiveSheet.Shapes(ShapeId).Select '选择ID=2的图形。结果就是刚刚选择了的图形。
   
End Sub

liucqa

不错不错，正需要         

香川群子

楼主你这个贵宾级别怎么来的，是对EH有重大贡献吧。


请确认一下我的方法对你是否有用处。

cg1

香川群子 发表于 2011-12-14 20:09
楼主，给你编了个查找返回当前图形的Shape Index的自定义函数：

Function GetShapeIndex()

呵呵，实在抱歉，你给的代码不符合我给出的要求

1、你使用了 shape.name去比对，我已经说过，同一个workbook中可能有上千个同名的shape，同名了怎么办（当然，可以命名一个非常长的名字尽可能让他不重复）？即使用NAME去比对，用FOR EACH 也不现实，上万个shape，等循环好了黄花菜都凉了，呵呵。不过你的思路也是非常不错的。我再想想看有没有办法变化一下，尽量不要修改对象的名称。

2、你竟然用 ID = ID+1这种方法返回一个所谓的"ID"，天啊，这跟shape.id有什么关系？

3、贵宾代表了我在 ACCESS 板块的贡献。

香川群子

我确认过了，在for……each 循环中，是按照Index的顺序来遍历的。

因此，用 ID = ID+1这种方法返回得到的"ID"值，如假包换，就是当前的Shape(Index)值，完全正确。

香川群子

【尽量不要修改对象的名称。】

请注意到，我在函数找到、返回该图形Index值以后，会立即把这个图形的名称恢复原状的，
所以请不要担心名称会被无谓变更的问题。


这个在VBA中的实现，根本就是小菜一碟，哪里需要多余的担心呢？

香川群子

【用FOR EACH 也不现实，上万个shape，等循环好了黄花菜都凉了……】

只是循环，比对名称，不做其它操作的话，时间的消耗并非完全不可忍受。


10000个图形的工作表中，全部搜素一遍，耗时在1秒左右。

cg1

呵呵，抱歉，我的操作是每300豪秒循环一次，搜索shape的时间比操作的时间还长。

另外 ，index必定不等于ID的，我传个文件给你，你自己看吧