[[20220525150500]]　『画像保存すると真っ白な画像となります。』（かおり０３）　ページの最後に飛ぶ

『画像保存すると真っ白な画像となります。』（かおり０３）

以下のコードにてExcelで作成した表を
画像保存しておりますが、画像が真っ白になってしまう
ケースが散見されます。※正常に保存されることがほとんど

どういった原因で、そのように修正すればよいかご教授いただければ
幸甚です。

Sub 画像保存_01()

 MsgBox "作成した画像を任意のフォルダーに保存します。" & vbCrLf & _
"保存先を確定してください。"
   With Application.FileDialog(msoFileDialogSaveAs)
     .InitialFileName = ThisWorkbook.Path & "\"
     .FilterIndex = 2
   If .Show = -1 Then .Execute
   End With

   With Range("C1:E13")
     .CopyPicture
   ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height).Name = "貼付用"
   End With

   Application.OnTime Now + TimeValue("00:00:01"), "書き出し"

   With ActiveSheet.ChartObjects("貼付用")
      .Chart.Paste
      .Chart.Export ThisWorkbook.Path & "\Profile.png"
      .Delete
   End With
   MsgBox ThisWorkbook.Path & "にpngファイルを出力しました。"
Application.Quit
   Application.DisplayAlerts = False
   ThisWorkbook.Close

End Sub

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

   With ActiveSheet.ChartObjects("貼付用")
      .Select    '★追加
      .Chart.Paste

（マナ） 2022/05/25(水) 15:36

マナさま
早速のご回答ありがとうございます。
エクセルのバージョンが関係してそうなのですが、どういったことが原因なのでしょうか。
（かおり03） 2022/05/25(水) 15:41

貼り付実行のタイミングの問題と思われますが
本当のとこところはわかりません。

（マナ） 2022/05/25(水) 18:37

マナさま
ご教授頂いた内容で解決いたしました。
ありがとうございました。
（かおり03） 2022/05/25(水) 20:04

コメント返信：

[ 一覧(最新更新順) ]

[[20220525150500]] 『画像保存すると真っ白な画像となります。』（かおり０３） ページの最後に飛ぶ

[[20220525150500]]　『画像保存すると真っ白な画像となります。』（かおり０３）　ページの最後に飛ぶ