Скачать с ютуб Штрихкод в Excel Code 128 в хорошем качестве

Штрихкод в Excel Code 128

Штрихкод Code 128 К видео с ценниками (   • Ценники своими руками бесплатно  ) коллеги справедливо заметили, что если просто сделать шрифт Code 128 - этого недостаточно для того чтобы сканер этот штрихкод прочел. Я конечно заподозрил, что здесь чтото не чисто и проверил. Проверка и дальнейший разбор подтвердил, что не чисто там всё. Как оказалось штрихкоду недостаточно выглядеть, как штрих-код. Ему помимо кодируемой информации оказывается нужен еще и стартовый символ, контрольный ключ и закрывающий символ. Все мануалы ведут на формирование каких-то картинок методом родов ежа, либо вовсе являются платными и тоже выдают картинки. Был момент слабости и мысль "взять и забить" но нет. Вот этот пост придал мне силы: https://blogs.klerk.ru/users/1911762/... В деле мне помог шрифт, взятый здесь: https://ru.fonts2u.com/code-128.%D1%8... И, спустя 1000 нецензурных слов, десятка чашек кофе и 12 часов времени мне таки удалось победить этого страшного дракона. Функция заняла всего 8 строчек кода. 'Замените надпись "больше или равно" на соответствующие символы. Отдельное СПАСИБО пользователю Александр (он в закрепленном комментарии) за зоркий глаз, светлый ум и внесенные корректировки. Function Code128(Str As String) cs = 104 For i = 1 To Len(Str) s = Asc(Mid(Str, i, 1)) cs = cs + (s + IIf(s БОЛЬШЕ= 32, -32, 64)) * i Next i sh = cs Mod 103 sh = sh + IIf(sh БОЛЬШЕ 94, 100, 32) Code128 = ChrW(204) & Str & ChrW(sh) & ChrW(206) End Function