vba 获取所选形状的 ID

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

vba get id of selected shape

powerpoint

vba