Home Macro Programming Modul Macro-VBA untuk export range tertentu menjadi file gambar pada Excel

Modul Macro-VBA untuk export range tertentu menjadi file gambar pada Excel

531

'Set Range yang akan diexport dalam format gambar
    Dim rgExp As Range
    Set rgExp = Range("A2:E10")
 ' Copy range dalam format picture ke dalam Clipboard
    rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    ' atau rgExp.CopyPicture xlPrinter, xlPicture
    
 ' Buat chart kosong dengan ukuran dari ukurang gambar yang dicopy 
    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
    Width:=rgExp.Width, Height:=rgExp.Height)
    .Name = "ChartVolumeMetricsDevEXPORT"
    .Activate
    End With
 ' Paste picture ke dalam chart, lalu export chart ke file dan hapus chart tersebut.
    ActiveChart.Paste
    ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export ThisWorkbook.Path & "\testmeExportChart.jpg"
    ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

Perintah ActiveSheet dapat diganti dengan nama sheet. misalnya Sheet1, Sheet2 dst..

LEAVE A REPLY

Please enter your comment!
Please enter your name here