vba - 将字体结果保留为图像？

Question

我有一个 excel 文件，它使用独特的字体类型将原始值(例如 {ABCDEF|123456})转换为条形码图像。

我需要将文件发送到没有足够权限安装此自定义字体的机器。

有没有办法将这种字体类型作为图像保存在 Excel 中？还是在当前机器没有安装字体的情况下保持字体输出？

虽然我发现使用 Copy as Picture => Appearance: "As Shown on Screen"手动工作，但我似乎无法让 VBA 代码很好地处理它，因为我必须在单个文件。

Answer 1

您只需将位图复制并粘贴到单元格上，而不是矢量:

Range("F1").Select
Selection.CopyPicture Format:=xlBitmap
ActiveSheet.PasteSpecial Format:="Bitmap"