Home
Manage Your Code
Snippet: Test snipped one here ... (VBA)
Title: Test snipped one here ... Language: VBA
Description: Test whatever is here Views: 1494
Author: S D Date Added: 5/13/2011
Copy Code  
1  Dim rgExp As Range: Set rgExp = Range("B5:H14")
2    
3    ''rgExp.CopyPicture Appearance:=xlScreen, Format:=xlPicture

4    rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
5    
6    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
7                                      Width:=rgExp.Width, Height:=rgExp.Height)
8        .Name = "ChartVolumeMetricsDevEXPORT"
9        ''.Chart.ChartType = xlColumnStacked

10        .Activate
11    End With
12    ''ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Activate

13    ActiveChart.Paste
14    ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Activate
15    ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "C:\testmeExportChart.jpg"
16    ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
17    
18    
Usage
use this and share this 
Notes
some notes and desclamers