OCX Modul in Excel |
Sub Makro1() Pfad = "C:\" 'Pfad zur Ausgabe der BMP-Dateien Zeile = 1 'Ab erster Zeile Spalte = 1 'Spalte "A" While Cells(Zeile, Spalte) > "0" 'Solange berechnen, bis eine leere Zeile kommt Sheet1.Barcode1.Data = Cells(Zeile, Spalte) 'Zuweisung der Nutzziffer Sheet1.Barcode1.WriteBMP pfad & Cells(Zeile, Spalte) & ".bmp", 300, 4 'Datei erzeugen Zeile = Zeile + 1 'Nächste Zeile Wend End Sub |