vba - 更改选择类型时保持选中对象

Question

我有一个宏允许人们使用fmMultiSelectMulti和选择 ListBox 项目fmMultiSelectExtended。可以使用单选按钮随时切换这两个选项。但是，如果有人选择了一个组，然后更改了选择，则该选择将被清除。是否可以通过更改过程保持选择？

Private Sub OptionButton3_Click()
   ListBox1.MultiSelect=fmMultiSelectMulti
End Sub

Private Sub OptionButton4_Click()
   ListBox1.MultiSelect=fmMultiSelectExtended
End Sub

Answer 1

稍微多一点的PPT做事方式：

Dim oRng As ShapeRange
Dim x As Long

Set oRng = ActiveWindow.Selection.ShapeRange

' Select something else as a test:
ActivePresentation.Slides(1).Shapes(1).Select

' Now restore original selection
oRng.Select

' Then at this point you could clear your list box and
For x = 1 To oRng.Count
    ' add the shape's name to the list box
    Debug.Print oRng(x).Name
Next

这将具有自动恢复先前选择的形状的优点。另一方面，Tim 的做法更普遍有用（即，您可以在任何列表框情况下重复使用相同的代码）。