Word
Oggetti di codici a barre con VBA

Utilizzo e automazione dei codici a barre con VBA in Word

È possibile utilizzare VisualBasic, Applications Edition (VBA) per risolvere molti elementi in Word. Qui ti mostreremo come incorporare, utilizzare ed eliminare il controllo ActiveBarcode con VBA:

Incorporamento del controllo ActiveBarcode in un documento:
In questo esempio un controllo codice a barre verrà posizionato in corrispondenza della posizione dei cursori. Quindi è possibile modificare l'oggetto utilizzando la variabile 'ab':

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
  FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

Impostare le proprietà standard (altezza, larghezza) dell'oggetto utilizzando la variabile 'ab':

ab.Width = 200
ab.Height = 120

È possibile accedere alle proprietà e ai metodi dell'oggetto codice a barre utilizzando la proprietà "OLEFormat.Object":

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"

È inoltre possibile utilizzare un modo più più pulito per accedere alle proprietà creando e utilizzando una variabile, ad esempio denominata 'abObject':

Dim abObject As Object
With ab.OLEFormat
  .Activate
  Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"

Utilizzando la chiamata seguente è possibile eseguire il cast dell'oggetto codice a barre in un Oggetto InlineShape. Si noti, tuttavia, che è possibile modificare il codice a barre non più dopo la conversione.

ab.ConvertToShape

Se il controllo non è più necessario, è possibile eliminarlo dal documento:

 ab.Delete

Suggerimento: Se è necessario che Windows elabori gli eventi imminenti (spesso denominati come "KeepWindowsAlive") all'interno di una macro, è possibile forzare questa operazione utilizzando la seguente funzione VBA:

DoEvents

Ciò può essere necessario, ad esempio se il Controllo deve disegnarsi di nuovo.