¿Cómo Puedo Configurar ITF-14 mediante Excel VBA?

¿Cómo Puedo Configurar ITF-14 mediante Excel VBA?

Con el siguiente código puede ajustar ITF-14 con una barra de apoyo y una zona de silencio.

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"

Obtener las coordenadas de la celda:

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

Establecer la posición del código de barras:

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