我在 VBA 中为 powerpoint 2010 选择了两个形状，如何利用它们创建某种数据结构

Question

我正在尝试创建一个类似于此处的记忆游戏： http://www.mathsisfun .com/games/memory/index.html。我是这样处理的：

用户选择两个形状，然后启动一个名为 AssociateShapes() 的宏， 在 AssociateShapes 中，我使用名为 ShapeAssociation 的类模块，其中有两个属性 shape1Name 和 shape2Name，其中该对表示这些名称的形状之间的关联。

因此，当我尝试测试 ShapeAssociation 时，我使用此模块：

Global shapeAssociations() As ShapeAssociation
Global shapeAssoc As New ShapeAssociation
    Public Sub Test()
        ReDim shapeAssociations(0)
        shapeAssoc.shape1Name = ActiveWindow.Selection.ShapeRange(1).Name
        shapeAssoc.shape2Name = ActiveWindow.Selection.ShapeRange(2).Name

        Set shapeAssociations(0) = shapeAssoc
        MsgBox shapeAssociations(0).shape1Name
    End Sub

但是，我最终看到的消息框是空的，可能表明 shapeAssoc 变量尚未初始化。我尝试了几种其他方法来在 VBA 中创建形状对的数据结构，从多维形状数组到此方法。所有这些尝试都会带来自己的错误消息，无论是编译时消息还是运行时消息。所以我的问题是，如何在 VBA 中创建表示一对形状的数据结构？

Answer 1

由于我们看不到类模块中发生的情况，因此我对其进行了一些重写以使用 UDT 数组。它的工作原理如下：

Public Type ShapeAssociation
    shape1Name As String
    shape2Name As String
End Type

Dim shapeAssociations() As ShapeAssociation

Public Sub Test()

    ReDim shapeAssociations(0)

    With shapeAssociations(0)
        .shape1Name = ActiveWindow.Selection.ShapeRange(1).Name
        .shape2Name = ActiveWindow.Selection.ShapeRange(2).Name
    End With

    MsgBox shapeAssociations(0).shape1Name & vbCrLf & shapeAssociations(0).shape2Name

End Sub

您需要验证用户实际上是否选择了至少两个形状 (Selection.ShapeRange.Count)，并且仅选择了两个形状。

另外，您打算让用户在普通视图还是幻灯片视图中玩游戏？如果是后者，这些都不起作用；您无法在幻灯片视图中选择任何内容。