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
問題点
- 真っ白になったりする(F8でステップインしていくと画像出力自体はできる)
- 画像出力自体できても、左上が白くなっている
という状況で、色々と試しているところです。
画像は途中で止めて、グラフに貼り付けた状態。
なんでこーなるの!?