Excelでドット絵作成ツールを作る　その4

お断り

今回は、あんまりすすんでいませんという報告のみです。

取り組んでいること

セル範囲を画像で出力

こちらを参考に、セル範囲を画像で（グラフに貼り付ける方法で）出力しようとしています。

'ファイル保存ダイアログ
Function getSaveFileName() As String
  Dim fPath As String

  fPath = Application.GetSaveAsFilename(fileFilter:="JPGファイル (*.jpg), *.jpg")
  If fPath = "False" Then
    getSaveFileName = ""
  Else
    getSaveFileName = fPath
  End If
End Function

'画像出力
Sub imgOut()
  Dim rg As Range
  Dim cht As Chart
  Dim fName As String
  '保存ファイル名を取得
  fName = getSaveFileName
  If fName <> "" Then
    '選択範囲を取得
    Set rg = Sheets("ドット絵作成").Range("G2:AB23")
    Set cht = ActiveSheet.ChartObjects.Add(0, 0, rg.Width, rg.Height).Chart
    rg.CopyPicture appearance:=xlScreen, Format:=xlPicture
    cht.Paste
    cht.Export Filename:=fName, filtername:="JPG"
    cht.Parent.Delete
  End If
End Sub