Existe uma fonte gratuita que transforma os caracteres em EAN busque no google

Veja este link: http://www.planilhando.com.br/forum/viewtopic.php?f=5&t=10177

Senhores bom dia!!
o que estar de errado, não estou conseguindo ler com meu leitor.
alguém pode me ajudar????
jmcneto

alguém teria alguma planliha já pronta que eu pudesse utilizar, preciso de gerar codigo de barra para usar em mercadorias que chegam sem codigo queria gerar um codigo meu interno só pra controle e também pudesse ler os codigos que que verm nas mercadorias tipo ean13. os codigos de barras que eu queria seria do tipo que contivesse barras e numeros abaixo das barras.
me ajudem!!!
grato,
jmcneto

Alguem junta os dois topicos e apaga a minha postagem

jmcneto,
ao criar um codigo de barras voce precisa fazer uma verificacao no codigo verificador (o ultimo digito)
Veja se a funcao abaixo lhe ajuda:
exemplo: =EAN13CheckDigit(A1)

Function EAN13CheckDigit(Msg$) As String

For X& = 1 To Len(Msg$)	' should be 12 digits
Test$ = Mid$(Msg$, X&, 1)
Select Case X& ' calculate check digit
Case 1, 3, 5, 7, 9, 11
Check& = Check& + Val(Test$) * 9
Case 10, 2, 4, 6, 8, 12
Check& = Check& + Val(Test$) * 7
End Select
Next
Check& = (Check& Mod 10) + 48
EAN13CheckDigit = Chr$(Check&)
End Function