VBA エクセルに挿入した画像を保存すると透明度を指定した箇所がモアレのようになる

Question

実現したいこと

プルダウンリスト画像①～⑩の中から好きな画像を3つ選択し「作成」のボタンを押すと、指定した範囲に背景画像+選択した3つの画像が表示される
（例）

あくまでイメージ図のため画像サイズ・個数・配置等は仮ですが、上記のようなVBAを作成致しました。
最終的には表示された画像（グループ化済）をjpgまたはpngとして指定したフォルダに保存致します。
使用者が多数いるため、作業時間短縮のために出来れば保存の工程まで含め自動化したいと考えております。

発生している問題・分からないこと

VBAを作成し保存された画像を確認すると透過を用いている箇所が非常に粗くなりモアレのようになってしまいます。
多少の劣化やボケなどはExcelからのコピペのためある程度許容していますが、見た目が大きく変わってしまうほどの劣化のため非常に困っております。
VBAにこだわっているわけではなく、そもそも仕様上不可能であれば別方法（バッチファイルなど）を検討致しますのでご教示頂ければと思います。

●VBAで保存した画像
画像①～③の背景は黒ベタのレイヤーの不透明度を50％にしたものです。

該当のソースコード

Public Sub test()

    Dim FileSize As Long
    Dim pic As ChartObject
    Dim picName As String: picName = "\sample.png"
    Dim rng As Range: Set rng = Range("A1:C17")
 
    '■セル範囲を画像データでコピーする。
    rng.CopyPicture
       
    '■指定したセル範囲と同じサイズのpicを新規作成し、保存する。
    Set pic = ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
    pic.Chart.Export ThisWorkbook.Path & picName
    FileSize = FileLen(ThisWorkbook.Path & picName)
     
    '■picのFileSizeを超えるまでループする(画像データが出来上がったら終了する)
    Do Until FileLen(ThisWorkbook.Path & picName) > FileSize
        pic.Chart.Paste
        pic.Chart.Export ThisWorkbook.Path & picName
        DoEvents
    Loop
    '■作成完了後、pic削除。
    pic.Delete
    Set pic = Nothing
 
End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

一から自分で作成出来る知識が現状ないため、記載したコードは検索しヒットしたものを流用させて頂きました。
他の書き方もいくつか試してみましたがどれも上手く行きませんでした。

補足

特になし

Answer 1

A = "保存先フォルダのパス"
name = "保存用画像名"

'オートシェイプを、オブジェクトに格納
Dim Shp
Set Shp = ActiveSheet.Shapes("グループ化した図の名前")

'チャートを作成
Dim Cht
Set Cht = ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height)

With Cht
    Shp.CopyPicture Format:=xlBitmap 'オートシェイプを画像としてコピー
    .Chart.Parent.Select 'チャートを選択
    .Chart.Paste 'チャートに貼り付け
    .Chart.Export " & A & "" & name & ".jpg" 'チャートを、画像として保存
    .Delete 'チャートを削除
End With