Strekkoder i Excel 2016, Excel 2013 og Excel 365

Legg inn og automatiser en strekkode i et Excel-ark

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

Her er en kort beskrivelse av hvordan du legger til en strekkode i et Excel-dokument og kobler den til innholdet i en celle.

Først starter du Excel og oppretter eller åpner et dokument.

Sørg for at du har konfigurert Excel slik at fanen Utvikler vises. For å gjøre dette, gå til Excel-alternativer ved å klikke på fanen Fil. Dette vil bytte deg til Backstage-visningen. Klikk deretter på Alternativer i fanegruppen til venstre. ActiveBarcode: Barcode, Excel

Under Tilpass båndet aktiverer du alternativet Utvikler på hovedfanene, og lukker deretter alternativvinduet. ActiveBarcode: Barcode, Excel

Du kan nå legge inn ActiveBarcode-kontrollelementet i dokumentet ditt. Velg fanen Utvikler. Klikk på knappen Sett inn i ActiveX-kontroller, og velg deretter Flere kontroller. ActiveBarcode: Barcode, Excel

En dialogboks vises på skjermen: ActiveBarcode: Barcode, Excel

Velg ActiveBarcode og klikk OK. En strekkode vil nå bli opprettet i dokumentet ditt. Det vil være en standard EAN-128-strekkode. Dette er standardtypen. Du kan endre den til hvilken som helst strekkodetype som støttes av 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 nå endre denne strekkoden. Du kan endre type, tekst, farger osv. For å gjøre dette, høyreklikk inne i strekkoden. En hurtigmeny åpnes: ActiveBarcode: Barcode, Excel

Velg ActiveBarcode Object og deretter Properties. Dialogboksen ActiveBarcode property åpnes. Her kan du endre strekkoden slik du ønsker.

Alternativt kan du bruke egenskapsdialogen i Excel. For å gjøre dette, klikk på Egenskaper- knappen i Kontrollelementer -området: ActiveBarcode: Barcode, Excel

Opprett en kobling mellom en celle og strekkoden: Åpne Excel-egenskapsdialogen som beskrevet ovenfor. Aktiver strekkodeobjektet ved å klikke på det én gang. Egenskapene til strekkodeobjektet vises nå i egenskapsdialogen. Se etter egenskapen med navnet LinkedCell. Denne egenskapen oppretter en kobling mellom en celle og strekkoden: ActiveBarcode: Barcode, Excel

Skriv inn navnet på cellen for lenken i denne egenskapen. Det er alt!

Hvis du vil opprette en strekkode som koder data fra flere celler, må du først slå sammen disse cellene til en hjelpecelle. Koble deretter denne kombinerte cellen til strekkodeobjektet.

I følgende eksempel kombineres innholdet i cellene B3 og B4 i celle B6. Celle B6 er koblet til strekkodeobjektet. ActiveBarcode: Barcode, Excel

Bruk og automatisering av strekkoder med VBA i Excel

Du kan bruke VisualBasic for Applications (VBA) til å løse mange oppgaver i Excel. Her viser vi deg hvordan du kan legge inn, bruke og slette ActiveBarcode-kontrollen med VBA:

Innebygge ActiveBarcode-kontrollen i et ark:
I dette eksemplet plasseres en strekkodekontroll rett over en celle. Da ser det ut som om strekkoden befinner seg inne i en celle.

Først leser vi cellestørrelsen:

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

Vær oppmerksom på at en celle må ha en minimumsstørrelse for at strekkoden skal passe inn i den. Hvis cellen er for liten, vises en størrelsesfeil. Derfor endrer vi høyden på cellen til 30 piksler:

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

Følgende funksjon vil opprette strekkodekontrollen rett 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 koble strekkodeobjektet direkte til en celle:

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

For å få enkel tilgang til kontrollen lagrer vi navnet på kontrollen i variabelen MyBarcode:

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

Nå kan du bruke egenskapene og metodene til strekkodeobjektet slik du ønsker:

' 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 lenger trenger kontrollen, kan du slette den fra arket:

ActiveSheet.OLEObjects(MyBarcode).Delete

Tips: Hvis det er nødvendig for Windows å behandle kommende hendelser (ofte referert til som KeepWindowsAlive) i en makro, kan du tvinge dette ved å bruke følgende VBA-funksjon:

DoEvents

Dette kan være nødvendig, f.eks. hvis kontrollen må tegne seg selv på nytt.