vba - 获取特定字体配置中文本的实际宽度？

Question

我正在打印条形码，作为该过程的一部分，我有一个图表对象，上面有一个文本框。

我使用从这里获得的 clsBarcode 类在其上渲染条形码 Generating Code 128 Barcodes using Excel VBA

现在我遇到的问题是我无法分辨条形码的宽度。

我在该图表对象上生成条形码，然后将图表导出为 jpeg 文件。我一直使用固定大小的图表对象，但现在我尝试打印不同大小的条形码，并且必须调整图表对象以匹配条形码大小，否则它会被剪切。

我在这里找到了一个 strWidth 函数 http://www.ozgrid.com/forum/showthread.php?t=94339

不幸的是，它使用常用字体的查找表。表中没有 code128.fft 的条目。

所以我有点被困在这里了。如果我只是将图表的大小调整为任何条形码可能的长尺寸，那么我的条形码图像中会出现大量浪费的空白。由于我将这些条形码打印在 2"x4"贴纸上，因此您可以猜测空间非常宝贵。

我认为最好的方法是使用 code128 字符的值填充查找表。条形码类别表示正在使用字符 32 至 126 和 200 至 211。

如何计算出这些字符的 mafChrWid(i) 值？

谢谢!

Answer 1

对于此功能，您需要将单元格命名为 BARCODE 并设置其字体 code128.fft。

Function getBarCodeWidth(strBarcode As String) As Double

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

End Function