将字体结果保留为图像？

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"

Keep Font Results as Image?