Come Posso Configurare ITF-14 tramite Excel VBA?

Come Posso Configurare ITF-14 tramite Excel VBA?

Con il seguente codice potete configurare ITF-14 con una barra portante e una quiet zone.

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"

Ottenere le coordinate della cella:

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

Impostare la posizione del codice a barre:

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