Membuat Gambar JPG di EXcel dengan vb

Cara buat gambar dari Range tertentu dengan macro sebagai berikut :
Insert button dan tulis kode berikut

Private Sub CommandButton1_Click()
                  'Set Rentang Anda ingin ekspor ke file
Dim rgExp As Range: Set rgExp = Worksheets("KARTU").Range("A89:K115")
                 'Salin kisaran sebagai gambar ke Clipboard
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
               '' 'Buat grafik kosong dengan ukuran yang tepat dari berbagai disalin
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
                  '' 'Paste ke daerah grafik, ekspor ke file, menghapus grafik.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export ActiveWorkbook.Path & "\GAMBAR\KARTU.jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
End Sub