advanced code snippet search

Posted By

win4me on 06/02/11


Tagged

image code excel graphics export vba automation picture range


Versions (?)

VBA: Export excel range as image and save as file.

 / Published in: Visual Basic
 

PROBLEM: How to save Excel range into image file. VBA macro in Excel 2007.

SOLUTION: Create an empty chart, paste range image into chart area, and Export as image file.

Modify code to suite to your needs.

Expand | Embed | Plain Text 
  1. ''' Set Range you want to export to file
  2.     Dim rgExp As Range: Set rgExp = Range("B5:H14")
  3.     ''' Copy range as picture onto Clipboard
  4.     rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  5.     ''' Create an empty chart with exact size of range copied
  6.     With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
  7.     Width:=rgExp.Width, Height:=rgExp.Height)
  8.     .Name = "ChartVolumeMetricsDevEXPORT"
  9.     .Activate
  10.     End With
  11.     ''' Paste into chart area, export to file, delete chart.
  12.     ActiveChart.Paste
  13.     ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "C:\testmeExportChart.jpg"
  14.     ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

Report this snippet  

You need to login to post a comment.