0

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

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

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

1 回答 1

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 的做法更普遍有用(即,您可以在任何列表框情况下重复使用相同的代码)。

于 2013-07-10T14:42:00.007 回答