使 PowerPoint 组合框正确列出项目时出现问题

Question

我正在创建一个 PowerPoint，希望用户能够从组合框中的列表中选择一个项目。此后不需要发生任何事情，只需在屏幕上提供他们选择的记录即可。

我的问题是，我似乎能够填充组合框，并且用户可以选择一个项目，但每次单击组合框时列表都会变长（即每次单击列表时都会重复）。或者，我可以清除组合框，然后填充它，但在这种情况下，用户的选择似乎也被清除。

VBA 示例 1：

Private Sub ComboBox1_DropButtonClick()
With ComboBox1
.AddItem " ", 0
.AddItem "speed", 1
.AddItem "provisionality", 2
.AddItem "automation", 3
.AddItem "replication", 4
.AddItem "communicability", 5
.AddItem "multi-modality", 6
.AddItem "non-linearity", 7
.AddItem "capacity", 8
.AddItem "interactivity", 9
End With
End Sub

VBA 示例 2：

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem " ", 0
.AddItem "speed", 1
.AddItem "provisionality", 2
.AddItem "automation", 3
.AddItem "replication", 4
.AddItem "communicability", 5
.AddItem "multi-modality", 6
.AddItem "non-linearity", 7
.AddItem "capacity", 8
.AddItem "interactivity", 9
End With
End Sub

有人可以帮忙吗？

Answer 1

由于您的代码位于 DropButtonClick 事件中，因此每次单击下拉列表时，这些项目都会添加到您的组合框中。尝试添加一些代码来检查组合框在添加项目之前是否已填充：

Private Sub ComboBox1_DropButtonClick()

    If ComboBox1.ListCount = 0 Then
        With ComboBox1
            .AddItem " ", 0
            .AddItem "speed", 1
            .AddItem "provisionality", 2
            .AddItem "automation", 3
            .AddItem "replication", 4
            .AddItem "communicability", 5
            .AddItem "multi-modality", 6
            .AddItem "non-linearity", 7
            .AddItem "capacity", 8
            .AddItem "interactivity", 9
        End With
    End If

End Sub

然后您不必清除组合框并清除所选项目。