Méthode TextRange.InsertBarcode (Publisher)

Article
04/07/2023

Insère un champ de code-barres à la fin de la plage de texte représentée par l'objet parent TextRange.

Syntaxe

expression. InsertBarcode

Expression Variable qui représente un objet TextRange .

Valeur renvoyée

TextRange

Remarques

Dans l'idéal, vous devez créer un complément pour Microsoft Publisher pour traiter les événements MailMergeGenerateBarcode et MailMergeInsertBarcode. Si votre complément ou le code ne contienne pas de gestionnaires pour ces événements, la méthode InsertBarcode renvoie une erreur.

L'exemple suivant montre comment gérer ces événements à l'aide du code Microsoft Visual Basic pour applications (VBA dans Visual Basic Editor.

Si vous souhaitez activer l'insertion de codes-barres dans une composition à partir de l'interface utilisateur, votre complément ou le code VBA doit également définir la valeur de la propriété InsertBarcodeVisiblela valeur True.

Exemple

L'exemple suivant montre comment utiliser la méthode InsertBarcode pour insérer un champ de code-barres dans une zone de texte dans une composition. Insérez ce code dans votre projet VBA et exécutez la procédure AttachToEvents avant d'exécuter la procédure InsertBarcode_Example.

Avant d'exécuter le code dans cet exemple, utilisez la méthode MailMerge.OpenDataSource pour se connecter à une source de données. La source de données doit contenir une colonne de code-barres qui répertorie les codes barres pour tous les destinataires de fusion et publipostage. Remplacez barcodeColumnIndex dans le gestionnaire d’événements MailMergeGenerateBarcode dans le code par le numéro d’index de la colonne de source de données qui contient des informations de code-barres.

Exécutez le code suivant à partir de la fenêtre Visual Basic Editor, et non à partir de la boîte de dialogue Macros (dans le menu Outils , pointez sur Macro, puis choisissez Macros).

Public WithEvents pubApplication As Publisher.Application 
 
Private Sub pubApplication_MailMergeGenerateBarcode(ByVal Doc As Document, bstrString As String) 
 
    bstrString = pubApplication.ActiveDocument.MailMerge.DataSource.DataFields.Item(barcodeColumnIndex).Value 
         
End Sub 
 
Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean) 
 
    OkToInsert = True 
     
End Sub 
 
Public Sub InsertBarcode_Example() 
 
    Dim pubTextRange As Publisher.TextRange 
    Dim pubShape As Publisher.Shape 
     
    Set pubShape = ThisDocument.Pages(1).Shapes.AddTextbox(pbTextOrientationHorizontal, 100, 100, 500, 500) 
    Set pubTextRange = pubShape.TextFrame.TextRange 
     
    pubTextRange.InsertBarcode 
     
End Sub 
 
Public Sub AttachToEvents() 
 
    Set pubApplication = Application 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via