This documentation is archived and is not being maintained.

Labels Collection [Publisher 2003 VBA Language Reference]

Office 2003

Contains a collection of Label objects, which represent the unique label designs available on the system.

Using the Labels collection

Each label design available on the system resides in the AvailableLabels collection. Use the AvailableLabels property on the PageSetup Object object to return the collection of Label objects that are available on the system.

The following example uses the AvailableLabels property to populate the Labels collection with the lables that are available in the active document. A test is then run on each label in the collection, and the name of the label is displayed if the label's height is greater than 4 inches.

			Dim theLabel As Label
Dim theLabels As Labels

Set theLabels = ActiveDocument.PageSetup.AvailableLabels

For Each theLabel In theLabels
    If theLabel.Height > InchesToPoints(4) Then
        MsgBox theLabel.Name
    End If
Next theLabel

Parent Objects | PageSetup

Child Objects | Label Object