Showing posts with label Macro to export chart as Image. Show all posts
Showing posts with label Macro to export chart as Image. Show all posts

Wednesday, January 9, 2013

Macro to export chart as Image


If you want to export chart as image . Try this macro

Sub export_chart()

 Dim chrtpth As String

 ' create a unique Name
chrtpth = ThisWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"

 'Change chart name which you want to export
Sheets("Sheet1").ChartObjects("Chart 3").Chart.Export chrtpth
' open the image
On Error Resume Next
VBA.Shell "Explorer.exe " & Chr(34) & chrtpth & Chr(34), vbNormalFocus
End Sub

Download working File
at No comments:
Labels:
Subscribe to: Posts (Atom)

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...

  • Export Range in Json Format
    Macro to Export Range in Json Format Option Explicit Sub export_in_json_format()     Dim fs As Object     Dim jsonfile     Dim rangetoex...
  • Running SQL Queries within Excel Environment
    If you want to run SQL queries within Excel environment without  connecting to any database, you can do it with creating the ADODB   conn...