Čárové kódy v Excelu 2016, Excelu 2013 a Excelu 365

Vložení a automatizace čárového kódu do listu Excel

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

Zde je krátký popis toho, jak přidat čárový kód do dokumentu Excel a propojit jej s obsahem buňky.

Nejprve spusťte Excel a vytvořte nebo otevřete dokument.

Ujistěte se, že jste nastavili Excel tak, aby se zobrazovala karta Vývojář. Chcete-li to provést, přejděte do možností Excelu kliknutím na kartu Soubor. Tím se přepnete do zobrazení Backstage. Poté klikněte na možnost Možnosti v skupině karet vlevo. ActiveBarcode: Barcode, Excel

V části Přizpůsobit pás karet povolte na hlavních kartách možnost Vývojář a poté zavřete okno možností. ActiveBarcode: Barcode, Excel

Nyní můžete do dokumentu vložit ovládací prvek ActiveBarcode. Vyberte kartu Vývojář. Klikněte na tlačítko Vložit v oblasti Ovládací prvky ActiveX a poté vyberte Další ovládací prvky. ActiveBarcode: Barcode, Excel

Na obrazovce se zobrazí dialogové okno: ActiveBarcode: Barcode, Excel

Vyberte ActiveBarcode a klikněte na OK. Do dokumentu se nyní vloží čárový kód. Bude se jednat o standardní čárový kód EAN-128. Jedná se o výchozí typ. Můžete jej změnit na jakýkoli typ čárového kódu podporovaný 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 ...Nyní můžete tento čárový kód upravit. Můžete změnit typ, text, barvy atd. Chcete-li tak učinit, klikněte pravým tlačítkem myši uvnitř čárového kódu. Otevře se vyskakovací nabídka: ActiveBarcode: Barcode, Excel

Vyberte objekt ActiveBarcode a poté Properties(Vlastnosti). Otevře se dialogové okno vlastností ActiveBarcode. Zde můžete čárový kód libovolně upravit.

Alternativně můžete použít dialogové okno vlastností aplikace Excel. Chcete-li tak učinit, klikněte na tlačítko Vlastnosti v oblasti Ovládací prvky: ActiveBarcode: Barcode, Excel

Vytvořte propojení mezi buňkou a čárovým kódem: Otevřete dialogové okno vlastností Excelu, jak je popsáno výše. Aktivujte objekt čárového kódu jedním kliknutím. V dialogovém okně vlastností se nyní zobrazí vlastnosti objektu čárového kódu. Vyhledejte vlastnost s názvem LinkedCell. Tato vlastnost vytvoří propojení mezi buňkou a čárovým kódem: ActiveBarcode: Barcode, Excel

Do této vlastnosti zadejte název buňky pro odkaz. To je vše!

Pokud chcete vytvořit čárový kód, který kóduje data z několika buněk, musíte nejprve tyto buňky sloučit do pomocné buňky. Poté tuto sloučenou buňku propojte s objektem čárového kódu.

V následujícím příkladu je obsah buněk B3 a B4 sloučen v buňce B6. Buňka B6 je propojena s objektem čárového kódu. ActiveBarcode: Barcode, Excel

Používání a automatizace čárových kódů pomocí VBA v Excel

Pomocí jazyka VisualBasic for Applications (VBA) můžete v aplikaci Excel řešit mnoho věcí. Zde vám ukážeme, jak vložit, používat a odstranit ovládací prvek ActiveBarcode pomocí VBA:

Vložení ovládacího prvku ActiveBarcode do listu:
V tomto příkladu bude ovládací prvek čárového kódu umístěn přímo nad buňkou. Poté to vypadá, jako by byl čárový kód uvnitř buňky.

Nejprve přečteme velikost buněk:

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

Vezměte prosím na vědomí, že buňka by měla mít minimální velikost, aby se do ní vešel čárový kód. Pokud je buňka příliš malá, zobrazí se chyba velikosti. Změníme tedy výšku buňky na 30 pixelů:

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

Následující funkce vytvoří ovládací prvek čárového kódu přímo nad buňkou:

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

Objekt čárového kódu můžete přímo propojit s buňkou:

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

Pro snadný přístup k ovládacímu prvku uložíme jeho název do proměnné MyBarcode:

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

Nyní můžete vlastnosti a metody objektu čárového kódu používat podle libosti:

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

Pokud již ovládací prvek nepotřebujete, můžete jej z listu odstranit:

ActiveSheet.OLEObjects(MyBarcode).Delete

Tip: Pokud je nutné, aby Windows zpracovával nadcházející události (často označované jako KeepWindowsAlive) v rámci makra, můžete to vynutit pomocí následující funkce VBA:

DoEvents

To může být nutné například v případě, že se ovládací prvek musí překreslit.