EAN 13 Code und Zeilenabstände

[peterjaeckel]

Hallo Peter,

Deine Aufzählung ist ja schon fast ein Makro!

Ab Punkt 2 in VBA übersetzt:

Code:

Sub MetaEAN()
   Dim BCode As Shape
   Dim Schwarz As New Color
   Dim x As Double, y As Double
   
'    Farbe anlegen
   Schwarz.CMYKAssign 0, 0, 0, 100

' 2. Barcode ausschneiden
'  (vorher die Position merken)
   x = ActiveSelectionRange.PositionX
   y = ActiveSelectionRange.PositionY
   ActiveSelectionRange.Cut
   
'3. Barcode EINFÜGEN  (als Metafile)
   ActiveLayer.PasteSpecial "Metafile"
   Set BCode = ActiveShape
'   auf die Position des alten schieben
   BCode.PositionX = x
   BCode.PositionY = y
   
'6. Die Gewünschte Farbe geben (im Fall 100% schwarz: C:0 M:0Y:0 K:100)
   BCode.Shapes.AllExcluding(BCode.Shapes.Count).ApplyUniformFill Schwarz
End Sub

Punkt 4 und 5 habe ich weggelassen. Das Ergebnis ist also eine Gruppe.

Vielleicht nützt es Dir ja.

Gruß

Koter

Super das probiere ich mal aus wenn ich mehr davon zu erledigen habe.
Aktuell begrenzt es sich auch einzelne Fälle...

Liebe Grüße Peter