Thread
:
Save as bitmap
View Single Post
#
5
Posted to microsoft.public.excel.programming
michdenis
external usenet poster
Posts: 135
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.
Reply With Quote
michdenis
View Public Profile
Find all posts by michdenis