Question

我正在尝试在我对其进行分组后获取所选组形状的ID。但我找不到合适的语法。非常感谢您的帮助。这是我目前的代码

Dim Ausgabe as Integer
[...]
        If ActiveWindow.Selection.ShapeRange.count > 1 Then
            ActiveWindow.Selection.ShapeRange.Group.Select
            'Ausgabe = .Shape.Id --> This line does not work ...
            MsgBox (Ausgabe)
        Else
[...]

非常感谢你的帮助。

Answer 1

如果您选择了一组形状，则可以迭代GroupItems属性以获取每个Shape对象及其属性：

Dim sh As Shape
For Each sh In ActiveWindow.Selection.ShapeRange.GroupItems
    MsgBox "Shape name: " & sh.Name & ", ID: " & sh.Id
Next

vba获取所选形状的id

1 个答案: