Command Buttons (ActiveX Controls) in Collections & Arrays

[j16n]

Hi,

My question is probably quite simple for those experienced, but I am new to VBA and programming in general. Is it possible to create an Array or Collection of Command Buttons (the ActiveX Control buttons) in PowerPoint, so I can easily manipulate them in group and with less code?

For instance, if I want to make them all visible or invisible at the same time.


Thanks!

[John Wilson]

Maybe something based on:

Dim myColl As New Collection

Sub coll()
   Dim oshp As Shape
   Dim osld As Slide
   Dim x As Long


   For Each osld In ActivePresentation.Slides
      For Each oshp In osld.Shapes
         If oshp.Type = msoOLEControlObject Then
            If oshp.OLEFormat.ProgID = "Forms.CommandButton.1" Then
               myColl.Add oshp
            End If
         End If
      Next oshp
   Next osld


End Sub


Sub hide_Show()
   Dim x As Long
   For x = 1 To myColl.Count
      myColl(x).Visible = Not myColl(x).Visible
   Next x
End Sub

[j16n]

Thanks John this is great! not only answered my question but also helped me figure out other issues, I was struggling with multiple controls and shapes...

One question though, any particular reason to declare the x variable in the Sub Coll()? Noticed that it wasn't used there....just out of curiosity.

[John Wilson]

I was originally using it and then didn't delete the declaration later!