通过 ID 或名称获取形状

Question

如果您知道形状的 Id，有什么方法可以获取它吗？

例如：

Dim myshape As Shape
myshape.Id = 42
myshape = getShapeById(myshape.Id)

或者，我可以通过 Name 获取形状吗？

Dim myshape As Shape
myshape.Name = "Rectangle 42"
myshape = getShapeByName(myshape.Name)

Answer 1

通过 .Id 获取形状 .Name 比 通过 .Name 获取其 .Id。

但它是这样实现的：

Sub PrintShapeName()
    Debug.Print getNameByID(3, 1)
End Sub

Function getNameByID(shapeID As Long, slide As Integer)
    Dim ap As Presentation: Set ap = ActivePresentation
    Dim sl As slide: Set sl = ap.Slides(slide)
    sl.Shapes.SelectAll
    Dim sr As ShapeRange
    Set sr = Windows(1).Selection.ShapeRange
    Dim s As Shape
    For Each s In sr
        If s.id = shapeID Then
            getNameByID = s.Name
            Exit Function
        End If
    Next
End Function

Answer 2

要通过 Name 获取 Shape，您需要...：

Function getShapeByName(shapeName As String, Slide As Integer)
    Set getShapeByName = ActivePresentation.Slides(Slide).Shapes(shapeName)
End Function

Dim myshape As Shape
myshape = getShapeByName("Rectangle 42", 1)

Answer 3

sName = ActivePresentation.Slides(k).Shapes(j).Name

其中，k 是幻灯片编号，j 是该幻灯片上的形状编号。

您可以使用以下内容循环浏览每个页面形状：

k = 1
For j = 1 To ActivePresentation.Slides(k).Shapes.Count
Next j

Chris