Comment configurer ITF-14 via Excel VBA ?

Comment configurer ITF-14 via Excel VBA ?

Avec le code suivant, vous pouvez ajuster ITF-14 avec une barre de renfort et une zone de silence.

Me.TBarCode111.BarCode = eBC_ITF14
Me.TBarCode111.QuietZoneUnit = eMUModules
Me.TBarCode111.QuietZoneLeft = 10
Me.TBarCode111.QuietZoneRight = 10
Me.TBarCode111.BearerBarType = eBearerBar_TopAndBottom

Me.TBarCode111.Text = "0123456789123"
Or
Me.TBarCode111.LinkedCell = "A1"

Obtenir les coordonnées d'une cellule :

With Selection
    X = .Cells(1, 1).Left
    Y = .Cells(1, 1).Top
    MsgBox "X = " < X < vbNewLine < "Y = " < Y
End With

Définir la position du code-barres :

Me.TBarCode111.Left = X
Me.TBarCode111.Top = Y