Save as bitmap
 

All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.

Save as bitmap
 

Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion :
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.

Save as bitmap
 

Thank you for responding - is there anything else I need to do, I keep
getting a Syntax error, starting on the first .Activate

"michdenis" wrote:

Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion :
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.

Save as bitmap
 

Danses pour le groupe avancé

Save as bitmap
 

"Maze" a écrit dans le message de groupe de discussion :
...
Thank you for responding - is there anything else I need to do, I keep
getting a Syntax error, starting on the first .Activate

"michdenis" wrote:

Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion
:
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.

Save as bitmap
 

"Maze" a écrit dans le message de groupe de discussion :
...
Thank you for responding - is there anything else I need to do, I keep
getting a Syntax error, starting on the first .Activate

"michdenis" wrote:

Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion
:
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.

Save as bitmap
 

For prereceding version of excel 2007
Menu bar / tools / Macros or procedures / Security / approved editors /
you have to check the 2 checkboxes in the button of the window.

Excel 2007,
Office button / Options Excel / Confidentiality gestion center / Parameters /
Macro parameters / and you have to check the case : Approved access ... vba project

These informations have been translated from a french version...
sorry if the command name button have a different caption than those used.



"Maze" a écrit dans le message de groupe de discussion :
...
Thank you for responding - is there anything else I need to do, I keep
getting a Syntax error, starting on the first .Activate

"michdenis" wrote:

Hi,

Try this :

Modify sheet name and range address at your convenient.

'--------------------------------------------
Sub Save_Range_On_Desktop()

Application.ScreenUpdating = False
With Sheets("Sheet1")
.Activate
Workbooks.Add
.Range("A2:H31").CopyPicture
End With
With ActiveSheet
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.ChartArea.Border.LineStyle = 0
End With
With .ChartObjects(1)
.Top = 0
.Left = 0
.Chart.Export "C:\Users\DM\Desktop\Its_Name.bmp", "bmp"
End With
.Parent.Close False
End With
Application.ScreenUpdating = True
End Sub
'--------------------------------------------

"Maze" a écrit dans le message de groupe de discussion
:
...
All:

Need assistance on macro code to do the following:

From a command button - copy a range from a worksheet (A1:D9), then save
selection as a bitmap (picture) on the desktop.

Thank you in advance.