Standard o superiore

Word
Oggetti di codici a barre con VBA

Utilizzo e automazione dei codici a barre con VBA in Word

1

È 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.