Downloaden

Excel
Barcode-objecten in een spreadsheet

 Standard of hoger

Een streepjescode insluiten en automatiseren in een Excel-blad

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
Hier volgt een korte beschrijving van hoe je een streepjescode toevoegt aan een Excel-document en deze koppelt aan de inhoud van een cel.

Start eerst Excel en maak of open een document.

Zorg ervoor dat je Excel zo hebt geconfigureerd dat het tabblad Ontwikkelaar verschijnt. Ga hiervoor naar Excel-opties door op het tabblad Bestand te klikken. Hierdoor schakel je over naar de Backstage-weergave. Klik vervolgens op Opties in de tabbladgroep aan de linkerkant.ActiveBarcode: Barcode, Excel


1


Schakel onder Lint aanpassen de optie Ontwikkelaar in op de hoofdtabbladen en sluit het venster met opties.ActiveBarcode: Barcode, Excel


2


U kunt nu het besturingselement ActiveBarcode insluiten in uw document. Selecteer het tabblad Ontwikkelaar. Klik op de knop Invoegen in de reeks ActiveX-besturingselementen en selecteer vervolgens Meer besturingselementen.ActiveBarcode: Barcode, Excel


3


Er verschijnt een dialoogvenster op het scherm:ActiveBarcode: Barcode, Excel


4


Selecteer ActiveBarcode en klik op OK. Er wordt nu een streepjescode gemaakt in uw document. Het wordt een standaard EAN-128 streepjescode. Dit is het standaardtype. Je kunt het wijzigen in elk barcodetype dat wordt ondersteund door 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 ...Je kunt deze streepjescode nu aanpassen. Je kunt het type, de tekst, de kleuren, enz. wijzigen. Klik hiervoor met de rechtermuisknop in de barcode. Er wordt een pop-upmenu geopend: ActiveBarcode: Barcode, Excel


5


Selecteer ActiveBarcode Object gevolgd door Eigenschappen. Het ActiveBarcode-eigenschappenvenster wordt geopend. Hier kun je de barcode naar wens aanpassen.

Als alternatief kun je de eigenschappen dialoog van Excel gebruiken. Klik hiervoor op de Eigenschappen knop in het Controls bereik:ActiveBarcode: Barcode, Excel


6


Een koppeling maken tussen een cel en de streepjescode: Open het dialoogvenster Excel-eigenschappen zoals hierboven beschreven. Activeer het barcodeobject door er eenmaal op te klikken. De eigenschappen van het barcodeobject worden nu weergegeven in het eigenschappendialoogvenster. Zoek naar de eigenschap LinkedCell. Deze eigenschap maakt een koppeling tussen een cel en de barcode:ActiveBarcode: Barcode, Excel


7


Voer de naam van de cel voor de link in deze eigenschap in. En klaar is kees!

Als je een barcode wilt maken die gegevens uit verschillende cellen codeert, moet je deze cellen eerst samenvoegen tot een helpende cel. Verbind vervolgens deze gecombineerde cel met het barcodeobject.

In het volgende voorbeeld wordt de inhoud van cel B3 en B4 gecombineerd in cel B6. Cel B6 is gekoppeld aan het barcodeobject.ActiveBarcode: Barcode, Excel

Barcodes gebruiken en automatiseren met VBA in Excel

Je kunt VisualBasic for Applications (VBA) gebruiken om veel dingen in Excel op te lossen. Hier laten we zien hoe je het ActiveBarcode-besturingselement kunt insluiten, gebruiken en verwijderen met VBA:

De ActiveBarcode-besturing insluiten in een blad:
In dit voorbeeld wordt een barcodebesturingselement direct boven een cel geplaatst. Dan lijkt het alsof de streepjescode in een cel staat.

Eerst lezen we de celgrootte af:
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
Houd er rekening mee dat een cel een minimale grootte moet hebben zodat de barcode erin past. Als de cel te klein is, wordt een Groottefout weergegeven. Daarom passen we de hoogte van de cel aan tot 30 pixels:
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
De volgende functie maakt de barcodebesturing direct boven de cel:
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
Je kunt het barcodeobject direct koppelen aan een cel:
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
Om gemakkelijk toegang te krijgen tot de controle, slaan we de naam van de controle op in de variabele MijnBarcode:
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Nu kun je de eigenschappen en methoden van het barcodeobject gebruiken zoals je wilt:
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
Als je het besturingselement niet meer nodig hebt, kun je het verwijderen uit het blad:
ActiveSheet.OLEObjects(MyBarcode).Delete
Tip: Als het nodig is dat Windows aankomende gebeurtenissen verwerkt (vaak KeepWindowsAlive genoemd) binnen een macro, kun je dit forceren door de volgende VBA-functie te gebruiken:
DoEvents
Dit kan bijvoorbeeld nodig zijn als het besturingselement zichzelf nieuw moet tekenen.