Il problema potrebbe risiedere nell'uso dell'oggetto Pictures.
Prova ad utilizzare il Metodo AddPicture dell'oggetto Shapes:
cApp.Worksheets(2).Shapes.AddPicture Filename:=App.Path & "\Barcode.bmp", _
linktofile:=msoFalse, savewithdocument:=msoCTrue, _
left:=600, top:=320, width:=100, height:=100
TheTruster
Edit: ops... sovrapposto con sgrubak, con cui concordo riguardo il font per il codice a barre. Ovviamente poi, nel caso di distribuzione del file, bisognerà occuparsi di fornire anche il Font e provvedere alla sua installazione sulla macchina.