Represents a collection of BuildingBlockType objects.
To loop through the different building block types, use a For loop with the Count property. The following example loops through the building block types and prints the name in the Immediate Window. (This example assumes that the Immediate Window is visible.)
Dim objTemplate As Template Dim intCount As Integer Dim objBBT As BuildingBlockType Set objTemplate = Templates(1) For intCount = 1 To objTemplate.BuildingBlockTypes.Count Set objBBT = objTemplate.BuildingBlockTypes(intCount) Debug.Print objBBT.Name Next
For more information about building blocks, see Working with Building Blocks.