Seite 1 von 1
Re: Bild an Zelle binden
Verfasst: So 31. Dez 2017, 10:17
von F3K Total
brainstuff hat geschrieben: ↑So 31. Dez 2017, 02:43
Noch besser wäre ein Add-on was von einer Nummer in einer Zelle selbst einen Bar-Code in einer Nebenzelle erzeugen kann.
Hi, mit dieser Benutzerdefinierten Funktion kannst du EAN 128 A/B/C berechnen:
Code: Alles auswählen
Function F_BarCode128(SText,SType)
'Startcodes: 192 = A; 193 = B; 194 = C Stopp 200 bei meinem Font aus dem Internet Zoll
'Startcodes: 208 = A; 209 = B; 210 = C Stopp 211 bei meinem selbst bearbeiteten Font
select case SType
Case "A"
nType = 208
Case "B"
nType = 209
Case "C"
nType = 210
end select
ocell = thiscomponent.sheets(0).getcellbyposition(0,1)
nCheck = 103
for i = 1 to len(SText)
nCheck = nCheck+( i * (ASC(Mid(SText,i,1))-32))
next i
nChecknumber = nCheck mod 103
F_BarCode128 = " "+chr(nType)+SText+nChecknumber+chr(211)+" "
'ocell.string = sCode
End function
Brauchst nur noch den richtigen Zeichensatz.
Sieht dann so aus:
- BC.PNG (40.69 KiB) 3605 mal betrachtet
Gruß R
Re: Bild an Zelle binden
Verfasst: So 31. Dez 2017, 10:44
von Rocko
brainstuff hat geschrieben: ↑So 31. Dez 2017, 02:43
Wie kann man Bilder an eine Zelle binden dass sie definitiv in der Zeile bleiben? Am liebsten hätte ich das so, dass alle Bilder in einer Spalte zur jeweiligen Linie gehören und ich hätte auch gerne eine Möglichkeit, womit man Bilder automatisch in einer Zelle zentrieren kann.
Vielleicht könntest du dein Problem auch ohne Makro auf alternative Art in den Griff kriegen.
http://de.openoffice.info/viewtopic.php?f=25&t=66069
Re: Bild an Zelle binden
Verfasst: Di 13. Feb 2018, 13:53
von Helmut_S
Hallo, das Vektorgrafikprogramm Inkscape (gibt es glaube ich auch für Windows) erzeugt auch EAN- und Bar-code128. Im Menü Erweiterungen --> Rendern --> Strichkode kannst du zwischen EAN8 und EAN13, sowie einigen weiteren Codes wählen. Das Ergebnis nach Wunsch Skalieren (was ja verlustlos geht, da svg-Vektorgrafik) und per ctrl+c in Zwischenablage kopieren und mit ctrl+V in Tabelle einfügen. Das geht - ABER - sortieren der eingebetteten Grafik geht in Calc Nicht, zumindest ist es mir trotz einiger Versuche nicht gelungen.
Wenn du das aber in Writer (wie oben beschrieben) in eine
Tabelle einfügst wir auch der eingebettete Code mit-sortiert.
Probiers mal aus, Gruß Helmut