VBAでバーコードコントロールを画像として保存したい

Question

初めまして
エクセルVBAでバーコートが使いたく
Microsoft Barcode Control 16.0
を使用しております
ACTIVEXコントロートとして挿入することはできております
きちんとリンクセルの値になっています
セルの値下記
=埋め込み("BARCODE.BarCodeCtrl.1","")

別ソフトでこのバーコード画像を利用したく、PNG等でセルに貼り付けたく思って居ります
そこでセルの画像コピーを行ってみたのですが
バーコード部分が真っ白のまま、でコピーされていました
使用したコード
Range("O4").CopyPicture
Range("S4").PasteSpecial

これは、ACTIVEコントロールがデザインモードでないと、コピーされないからでしょうか

ほかにためしたコード
Dim BC_Shape As Shape

For Each BC_Shape In ActiveSheet.Shapes
    If InStr(BC_Shape.Name, "BarCodeCtrl") = 1 Then
        BC_Shape.Copy
        ActiveSheet.Range("A1").PasteSpecial
    End If
Next

もし何か別の方法があればご教授ください

Answer 1

ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, DisplayAsIcon:=Falseで可能でした
お騒がせしました