Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as bitmap
Danses pour le groupe avancé
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to save an image as a bitmap | Excel Programming | |||
Bitmap | Excel Discussion (Misc queries) | |||
Save Userform as bitmap | Excel Programming | |||
Bitmap manipulation from VBA/VB | Excel Programming | |||
Bitmap | Excel Programming |