0

と のいずれかを使用して ListBox アイテムを選択できるようにするマクロがfmMultiSelectMultiありfmMultiSelectExtendedます。2 つのオプションは、ラジオ ボタンを使用していつでも切り替えることができます。ただし、誰かがグループを選択してから選択を変更すると、選択はクリアされます。変更プロセスを通じて選択を維持することは可能ですか?

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 に答える