Método TextRange.InsertBarcode (Publisher)

Insere um campo de código de barras no final do intervalo de texto representado pelo objeto pai TextRange.

Sintaxe

expressão. InsertBarcode

Expressão Uma variável que representa um objeto TextRange .

Valor de retorno

TextRange

Comentários

Idealmente, você deve criar um suplemento para o Microsoft Publisher para manipular os eventos MailMergeGenerateBarcode e MailMergeInsertBarcode. Se seu suplemento ou código não contiver manipuladores para esses eventos, o método InsertBarcode retorna um erro.

O exemplo a seguir mostra como controlar esses eventos usando o código do Microsoft Visual Basic for Applications (VBA) no Editor do Visual Basic.

Se você deseja habilitar a inserção de códigos de barras na publicação da interface do usuário, seu suplemento ou código VBA deve também definir o valor da propriedade InsertBarcodeVisible como True.

Exemplo

O exemplo a seguir mostra como usar o método InsertBarcode para inserir um campo de código de barras em uma caixa de texto em uma publicação. Insira este código no projeto VBA e execute o procedimento de AttachToEvents antes de executar o procedimento InsertBarcode_Example.

Antes de executar o código neste exemplo, use o método MailMerge.OpenDataSource para se conectar a uma fonte de dados. A fonte de dados deve conter uma coluna de código de barras que lista os códigos de barras para todos os destinatários de mala direta. Substitua barcodeColumnIndex no manipulador de eventos MailMergeGenerateBarcode no código pelo número de índice da coluna de fonte de dados que contém informações de código de barras.

Execute o código a seguir na janela Editor do Visual Basic e não na caixa de diálogo Macros (no menu Ferramentas , aponte para Macro e escolha 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.