Option
Explicit
Option
Private
Module
Private
lcolCheckBoxes
As
Collection
Public
Sub
Init_Collection()
Dim
objShape
As
Shape
Set
lcolCheckBoxes =
New
Collection
For
Each
objShape
In
ThisDocument.Shapes
With
objShape.OLEFormat
If
.ClassType =
"Forms.CheckBox.1"
Then
_
Call
lcolCheckBoxes.Add(Item:=.
Object
, Key:=.
Object
.Name)
End
With
Next
End
Sub
Public
Sub
Terminate_Collection()
Set
lcolCheckBoxes =
Nothing
End
Sub
Public
Property
Get
CheckBoxes()
As
Collection
Set
CheckBoxes = lcolCheckBoxes
End
Property