Excelマクロ　Excel2016でChartへのPasteが正常に動作しない

#発生している問題
Excelのマクロで、シート内の表を画像ファイルとして出力するプログラムを作っています。

Excel2013では問題無く動いていたのですが、最近PCを更新してExcel2016にしたところ、真っ白な画像が出力されるようになってしまいました。

VBA
1Sub outputPicture()
2    Dim rg As Range
3    Dim cht As Chart
4    Dim path As String
5    
6    path = ThisWorkbook.path & "\" & ActiveSheet.Name & ".png"
7    
8    '①選択範囲を取得
9    Set rg = Range(Cells(1, 1), Cells(Range("G5").End(xlDown).Row, Range("G5").End(xlToRight).Column))
10    '②選択した範囲を画像形式でコピー
11    rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
12    '③画像貼り付けようの埋め込みグラフ作成
13    Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
14    '④埋め込みグラフに貼り付ける
15    cht.Paste
16    '⑤JPEG形式で保存
17    cht.Export Filename:=path, filtername:="PNG"
18    '⑥埋め込みグラフを削除
19    cht.Parent.Delete
20    
21    MsgBox ("同フォルダ内に画像ファイル(" & ActiveSheet.Name & ".png)を出力しました")
22End Sub

このプログラムを作るのに参考にしたページはこちら
https://www.excel-excel.com/tips/vba_186.html

#試したこと
・このプログラム実行後のクリップボードをペイントに貼り付けてみたところ、表を画像化したものを貼り付けることができた。→**「②選択した範囲を画像形式でコピー」は出来ている**
・プログラム内の「⑥埋め込みグラフを削除」を消して実行したところ、エクセルファイル内に真っ白なグラフ領域が現れた。→**「③のグラフ領域作成」まではできている。かつ、④のグラフへの貼り付けが正常に行われていない。**
・cht.PasteをActiveSheet.Pasteに変更したところ、シート内に表の画像が作成できた。→ChartのPasteの時のみ起こる問題？

以上の事から問題はcht.Pasteの部分にあると考えて調べたのですが、これといった解決策が見つかりませんでした。

この問題の解決策をご教授いただけると助かります。

行動規範の内容に同意します

回答1件

自己解決

https://stackoverflow.com/questions/33807750/bug-fixing-copied-images-in-excel-2016-vba-appear-as-blank-images

上記リンク先で、タイミングの問題とあり、ステップ実行したら正常に動作しました。リンク先にparent shapeをSelectしたら解決したとあったので、そのようにプログラムを修正したところ正常に動作しました。

VBA
1Sub outputPicture()
2    Dim rg As Range
3    Dim cht As Chart
4    Dim path As String
5
6    path = ThisWorkbook.path & "\" & ActiveSheet.Name & ".png"
7
8    '①選択範囲を取得
9    Set rg = Range(Cells(1, 1), Cells(Range("G5").End(xlDown).Row, Range("G5").End(xlToRight).Column))
10    '②選択した範囲を画像形式でコピー
11    rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
12    '③画像貼り付けようの埋め込みグラフ作成
13    Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
14    '★★★これを追加★★★
15    cht.Parent.Select
16    '④埋め込みグラフに貼り付ける
17    cht.Paste
18    '⑤JPEG形式で保存
19    cht.Export Filename:=path, filtername:="PNG"
20    '⑥埋め込みグラフを削除
21    cht.Parent.Delete
22
23    MsgBox ("同フォルダ内に画像ファイル(" & ActiveSheet.Name & ".png)を出力しました")
24End Sub