Classe CustomLabel (Word VBA)

La classe CustomLabel représente une étiquette de publipostage personnalisée.

Les procédures principales de la classe CustomLabel sont Delete et CustomLabels.Add

Set

Pour utiliser une variable de classe CustomLabel, elle doit d'abord être instanciée, par exemple

Dim cll as CustomLabel
Set cll = Application.MailingLabel.CustomLabels(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CustomLabel : CustomLabels.Add, CustomLabels.Item et MailingLabel.CustomLabels

For Each

Voici un exemple de traitement des éléments CustomLabel dans une collection

Dim cll As CustomLabel
For Each cll In Application.MailingLabel.CustomLabels
	
Next cll

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Number with its procedures NumberAcross et NumberDown

Méthodes

Les méthodes principales de la classe CustomLabel sont

Delete - Supprime l’étiquette personnalisée spécifiée.

Application.MailingLabel.CustomLabels(1).Delete

CustomLabels.Add - Ajoute une étiquette de publipostage personnalisée à la collection CustomLabels.

Dim strName As String: strName =  
Dim cll As CustomLabel
Set cll = Application.MailingLabel.CustomLabels.Add(Name:=strName)

Propriétés

DotMatrix True si l'imprimante type pour l'étiquette personnalisée spécifiée est matricielle.

Dim booDotMatrix As Boolean
booDotMatrix = Application.MailingLabel.CustomLabels(1).DotMatrix

Height Cette propriété renvoie ou définit la hauteur d'une étiquette de publipostage personnalisée spécifiée, en points.

Application.MailingLabel.CustomLabels(1).Height =

HorizontalPitch Cette propriété renvoie ou définit la distance horizontale (en points) entre le bord gauche d'une étiquette de publipostage personnalisée et le bord gauche de l'étiquette de publipostage suivante.

Application.MailingLabel.CustomLabels(1).HorizontalPitch =

Index Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = Application.MailingLabel.CustomLabels(1).Index

Name Cette propriété renvoie ou définit le nom de l'objet spécifié.

Application.MailingLabel.CustomLabels(1).Name =

PageSize Cette propriété renvoie ou définit la taille de page pour l'étiquette de publipostage personnalisée spécifiée.

Application.MailingLabel.CustomLabels(1).PageSize = wdCustomLabelA4

Parent Renvoie un Object qui représente l'objet parent de l'objet CustomLabel spécifié.

Dim objParent As Object
Set objParent = Application.MailingLabel.CustomLabels(1).Parent

SideMargin Cette propriété renvoie ou définit la largeur de la marge côté (en points) pour l'étiquette de publipostage personnalisée spécifiée.

Application.MailingLabel.CustomLabels(1).SideMargin =

TopMargin Cette propriété renvoie ou définit la distance (en points) entre le bord supérieur de la page et la limite supérieure du corps de texte.

Application.MailingLabel.CustomLabels(1).TopMargin =

Valid Cette propriété a la valeur True si les différentes propriétés (par exemple, Height, Width et NumberDown) de l’étiquette personnalisée spécifiée sont utilisées conjointement pour créer une étiquette de publipostage valide.

Dim booValid As Boolean
booValid = Application.MailingLabel.CustomLabels(1).Valid

VerticalPitch Cette propriété renvoie ou définit la distance verticale entre le haut d'une étiquette de publipostage et le bord supérieur de l'étiquette de publipostage suivante.

Application.MailingLabel.CustomLabels(1).VerticalPitch =

Width Cette propriété renvoie ou définit la largeur d'une étiquette de publipostage personnalisée, en points.

Application.MailingLabel.CustomLabels(1).Width =

CustomLabels.Count Renvoie un type long qui représente le nombre d'éléments dans la collection.

Dim lngCount As Long
lngCount = Application.MailingLabel.CustomLabels.Count

CustomLabels.Parent Renvoie un Object qui représente l'objet parent de l'objet CustomLabels spécifié.

Dim objParent As Object
Set objParent = Application.MailingLabel.CustomLabels.Parent