Stregkoder i Excel 2016, Excel 2013 og Excel 365

Indsæt og automatiser en stregkode i et Excel-ark

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

Her er en kort beskrivelse af, hvordan du tilføjer en stregkode til et Excel-dokument og knytter den til indholdet i en celle.

Start først Excel og opret eller åbn et dokument.

Sørg for, at du har konfigureret Excel, så fanen Udvikler vises. For at gøre dette skal du gå til Excel-indstillinger ved at klikke på fanen Filer. Dette skifter dig til Backstage-visningen. Klik derefter på Indstillinger i fane-gruppen til venstre. ActiveBarcode: Barcode, Excel

Under Tilpas bånd skal du aktivere indstillingen Udvikler på hovedfanerne og derefter lukke vinduet med indstillinger. ActiveBarcode: Barcode, Excel

Du kan nu indsætte ActiveBarcode-kontrolelementet i dit dokument. Vælg fanen Udvikler. Klik på knappen Indsæt i området ActiveX-kontroller, og vælg derefter Flere kontroller. ActiveBarcode: Barcode, Excel

Der vises en dialogboks på skærmen: ActiveBarcode: Barcode, Excel

Vælg ActiveBarcode og klik på OK. Der oprettes nu en stregkode i dit dokument. Det vil være en standard EAN-128-stregkode. Dette er standardtypen. Du kan ændre den til enhver stregkodetype, der understøttes af 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 ...Du kan nu ændre denne stregkode. Du kan ændre typen, teksten, farverne osv. For at gøre dette skal du højreklikke inde i stregkoden. Der åbnes en pop op-menu: ActiveBarcode: Barcode, Excel

Vælg ActiveBarcode-objektet og derefter Egenskaber. Dialogboksen ActiveBarcode-egenskaber åbnes. Her kan du ændre stregkoden, som du ønsker.

Alternativt kan du bruge Excel's egenskabsdialog. For at gøre dette skal du klikke på knappen Egenskaber i området Kontroller: ActiveBarcode: Barcode, Excel

Opret en forbindelse mellem en celle og stregkoden: Åbn Excel-egenskabsdialogen som beskrevet ovenfor. Aktiver stregkodeobjektet ved at klikke på det én gang. Egenskaberne for stregkodeobjektet vises nu i egenskabsdialogen. Find egenskaben med navnet LinkedCell. Denne egenskab opretter en forbindelse mellem en celle og stregkoden: ActiveBarcode: Barcode, Excel

Indtast navnet på cellen for linket i denne egenskab. Det er det!

Hvis du vil oprette en stregkode, der koder data fra flere celler, skal du først flette disse celler til en hjælpecelle. Forbind derefter denne kombinerede celle med stregkodeobjektet.

I det følgende eksempel kombineres indholdet af celle B3 og B4 i celle B6. Celle B6 er knyttet til stregkodeobjektet. ActiveBarcode: Barcode, Excel

Brug og automatisering af stregkoder med VBA i Excel

Du kan bruge VisualBasic for Applications (VBA) til at løse mange opgaver i Excel. Her viser vi dig, hvordan du integrerer, bruger og sletter ActiveBarcode-kontrolelementet med VBA:

Indlejring af ActiveBarcode-kontrolelementet i et ark:
I dette eksempel placeres en stregkodekontrol direkte over en celle. Derefter ser det ud som om stregkoden befinder sig inde i en celle.

Først læser vi cellernes størrelse:

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

Bemærk, at en celle skal have en minimumsstørrelse, så stregkoden kan passe ind i den. Hvis cellen er for lille, vises en størrelsesfejl. Derfor ændrer vi cellens højde til 30 pixels:

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

Følgende funktion opretter stregkodekontrollen direkte over cellen:

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

Du kan forbinde stregkodeobjektet direkte med en celle:

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

For at få nem adgang til kontrolelementet gemmer vi navnet på kontrolelementet i variablen MyBarcode:

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

Nu kan du bruge stregkodeobjektets egenskaber og metoder, som du vil:

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

Hvis du ikke længere har brug for kontrollen, kan du slette den fra arket:

ActiveSheet.OLEObjects(MyBarcode).Delete

Tip: Hvis det er nødvendigt for Windows at behandle kommende begivenheder (ofte benævnt KeepWindowsAlive) inden for en makro, kan du tvinge dette ved hjælp af følgende VBA-funktion:

DoEvents

Dette kan være nødvendigt, f.eks. hvis kontrolelementet skal tegne sig selv på ny.