条形码下方字体居中

雷雷爸

各位大神老师，请问一下有没有可以使条形码下方字体居中的方法，例如上方条形码图片
下方代码是ivccav老师那里复制来的，他那里是纯代码的条形码生成，我是VBA小白，看不懂代码，他这段代码是PNG格式导出的，请问一下如何能把生成的条形码图片返回到当前工作簿的某张工作表的指定区域内，谢谢



Rem 生成条形码并导出为图片文件

Rem 128码：可表示从ASCII 0 到ASCII 127 共128个字符，故称

Function Encode_To_CODE_128_To_File()
   Dim EnCodeOptions As New EncodingOptions
   Dim Writer As IBarcodeWriter
   Set Writer = New BarcodeWriter
   Writer.Format = BarcodeFormat_CODE_128
   Set Writer.Options = EnCodeOptions
   EnCodeOptions.Height = 60
   EnCodeOptions.Width = 300
   EnCodeOptions.Margin = 2
   Writer.WriteToFile "123456", ThisWorkbook.Path & "\test.png", ImageFileFormat_Png
End Function

雷雷爸

有老师帮忙看看吗？谢谢

leikaiyi123

雷雷爸 发表于 2023-6-2 18:41
有老师帮忙看看吗？谢谢

我是用这个软件生成条码的：


链接：https://pan.baidu.com/s/1isejGeFeHc-MK2-EykjZ4g
提取码：fnrb

雷雷爸

各位老师这个条形码下方内容居中可以实现吗

ivccav

放在剪贴板粘贴到表就行了。





应用代码示例文件.zip (43.47 KB, 下载次数: 4)

2023-6-5 11:09 上传

点击文件名下载附件

雷雷爸

ivccav 发表于 2023-6-5 11:09
放在剪贴板粘贴到表就行了。

老师如何让条形码根据某一个单元格的内容自动生成呢？内容会变化