Erhalten tatsächliche Breite des Textes in einer bestimmten Schriftartkonfiguration?

Question

Ich drucke Barcodes und als Teil des Prozesses habe ich ein Chart-Objekt, das eine Textbox hat.

ich mache den Barcode auf die clsBarcode-Klasse ich von hier bekam Generating Code 128 Barcodes using Excel VBA

Nun ist die Frage, die ich habe ist, dass ich nicht der Breite des Barcodes berichten.

Ich erzeuge den Barcode auf diesem Diagrammobjekt und dann .export das Diagramm als JPEG-Datei. Ich hatte eine feste Größe für das Diagrammobjekt verwendet, aber jetzt versuche ich, Barcodes unterschiedlicher Größe zu drucken und das Diagrammobjekt an die Barcode-Größe anzupassen, sonst wird es abgeschnitten.

fand ich eine strWidth Funktion hier http://www.ozgrid.com/forum/showthread.php?t=94339

Leider für allgemein verfügbare Schriftarten eine Lookup-Tabelle verwendet es. Es gibt keinen Eintrag in der Tabelle für code128.fft.

Also bin ich hier irgendwie fest. Wenn ich die Größe meines Diagramms einfach so ändere, dass es die lange mögliche Größe eines beliebigen Barcodes ist, erhalte ich in meinem Barcode-Bild eine Menge verschwendeter Leerzeichen. Und da ich diese Barcodes auf 2 "x4" Aufklebern drucke, können Sie erraten, dass der Platz an der Spitze ist.

Ich denke, der beste Weg wäre, die Lookup-Tabelle mit Werten für Code 128 Zeichen zu füllen. Die Barcode-Klasse zeigt an, dass chr 32 bis 126 und 200 bis 211 verwendet werden.

Wie kann ich die MafChrWid (i) Werte für diese Zeichen herausfinden?

danke!

Answer 1

Für diese Funktion müssen Sie eine Zelle BARCODE benennen und die Schriftart code128.fft festlegen.

Function getBarCodeWidth(strBarcode As String) As Double 

    With Range("BARCODE") 
     .Formula = "=Code128_Str(" & strBarcode & ")" 
     .Worksheet.Columns(.Column).AutoFit 
     getBarCodeWidth = .Width 
    End With 

End Function