Codici a barre in Excel 2016, Excel 2013 ed Excel 365

Incorporare e automatizzare un codice a barre in un foglio Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010

Ecco una breve descrizione di come aggiungere un codice a barre a un documento Excel e collegarlo al contenuto di una cella.

Innanzitutto, avviare Excel e creare o aprire un documento.

Assicurarsi di aver configurato Excel in modo da visualizzare la scheda Sviluppatore. A tale scopo, accedere alle Opzioni di Excel facendo clic sulla scheda File. In questo modo si passa alla vista Backstage. Quindi, fare clic su Opzioni nel gruppo di schede a sinistra. ActiveBarcode: Barcode, Excel

In Personalizza barra multifunzione, attivare l'opzione Sviluppatore sulle schede principali, quindi chiudere la finestra delle opzioni. ActiveBarcode: Barcode, Excel

È ora possibile incorporare l'elemento di controllo ActiveBarcode nel documento. Selezionare la scheda Sviluppo. Fate clic sul pulsante Inserisci nell'intervallo Controlli ActiveX, quindi selezionate Altri controlli. ActiveBarcode: Barcode, Excel

Sullo schermo appare una finestra di dialogo: ActiveBarcode: Barcode, Excel

Selezionare ActiveBarcode e fare clic su OK. A questo punto verrà creato un codice a barre all'interno del documento. Si tratta di un codice a barre EAN-128 standard. Questo è il tipo predefinito. È possibile cambiarlo con qualsiasi tipo di codice a barre supportato da ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...È ora possibile modificare questo codice a barre. È possibile cambiare il tipo, il testo, i colori, ecc. Per farlo, fare clic con il tasto destro del mouse all'interno del codice a barre. Si aprirà un menu a comparsa: ActiveBarcode: Barcode, Excel

Selezionare Oggetto codice attivo seguito da Proprietà. Si aprirà la finestra di dialogo Proprietà del codice a barre attivo. Qui è possibile modificare il codice a barre come si desidera.

In alternativa, è possibile utilizzare la finestra di dialogo delle proprietà di Excel. Per farlo, fare clic sul pulsante Proprietà nell'area Controlli: ActiveBarcode: Barcode, Excel

Creare un collegamento tra una cella e il codice a barre: Aprire la finestra di dialogo delle proprietà di Excel come descritto sopra. Attivare l'oggetto codice a barre facendo clic una volta su di esso. Le proprietà dell'oggetto codice a barre vengono ora visualizzate nella finestra di dialogo delle proprietà. Cercare la proprietà denominata Cella collegata. Questa proprietà crea un collegamento tra una cella e il codice a barre: ActiveBarcode: Barcode, Excel

Inserire il nome della cella per il collegamento in questa proprietà. Ecco fatto!

Se si desidera creare un codice a barre che codifichi i dati di diverse celle, è necessario prima unire queste celle in una cella di aiuto. Quindi collegare questa cella combinata con l'oggetto codice a barre.

Nell'esempio seguente il contenuto delle celle B3 e B4 viene combinato nella cella B6. La cella B6 è collegata all'oggetto codice a barre. ActiveBarcode: Barcode, Excel

Utilizzo e automazione dei codici a barre con VBA in Excel

È possibile utilizzare VisualBasic for Applications (VBA) per risolvere molti problemi in Excel. Qui vi mostreremo come incorporare, utilizzare ed eliminare il controllo ActiveBarcode con VBA:

Incorporare il controllo ActiveBarcode in un foglio:
In questo esempio, il controllo del codice a barre verrà posizionato direttamente sopra una cella. In questo modo sembra che il codice a barre si trovi all'interno di una cella.

Per prima cosa leggiamo la dimensione delle celle:

CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left

Si noti che una cella deve avere una dimensione minima per potervi inserire il codice a barre. Se la cella è troppo piccola, verrà visualizzato un errore di dimensione. Quindi ridimensioniamo l'altezza della cella a 30 pixel:

' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30

La funzione seguente crea il controllo del codice a barre direttamente sopra la cella:

ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select

È possibile collegare direttamente l'oggetto codice a barre a una cella:

ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"

Per accedere facilmente al controllo, memorizziamo il nome del controllo nella variabile MyBarcode:

MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Ora è possibile utilizzare le proprietà e i metodi dell'oggetto codice a barre come si desidera:

' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")

Se il controllo non serve più, è possibile eliminarlo dal foglio:

ActiveSheet.OLEObjects(MyBarcode).Delete

Suggerimento: se è necessario che Windows elabori gli eventi imminenti (spesso indicati come KeepWindowsAlive) all'interno di una macro, è possibile forzarli utilizzando la seguente funzione VBA:

DoEvents

Questo può essere necessario, ad esempio se il Controllo deve disegnare se stesso in modo nuovo.