Home |
Search |
Today's Posts |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Won't work with forms etc.
"Robin Hammond" wrote: Mark, Here's a start at another technique. I think if you search you'll find that others have perfected this. Pubs open and have to go. The immediate limitation is that the picture has to fit on the screen as far as I can see, but give it a whirl and see if it works for you. Sub ExportPicAsJpg() Dim chTemp As Chart Dim picCopy As Picture Dim dWidth As Double Dim dHeight As Double Dim shNew As Worksheet Set picCopy = Selection Set chTemp = Charts.Add Set shNew = Sheets.Add dWidth = picCopy.Width dHeight = picCopy.Height Application.ScreenUpdating = False With chTemp .SetSourceData Source:=Sheets("Sheet1").Range("FA16383") .Location Whe=xlLocationAsObject, Name:=shNew.Name With shNew.ChartObjects(1) .Width = dWidth + 2 .Height = dHeight + 2 .Top = 0 .Left = 0 Range("A1").Select picCopy.Copy .Activate ActiveChart.Paste .Interior.ColorIndex = 1 ActiveChart.Export "c:\TempPic.JPG", "jpg" End With End With Application.DisplayAlerts = False shNew.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Robin Hammond www.enhanceddatasystems.com "Rob van Gelder" wrote in message ... You might be interested in Andy Pope's Graphics Exporter: http://www.andypope.info/vba/gex.htm -- Rob van Gelder - http://www.vangelder.co.nz/excel "Mark" wrote in message ... Hi, How exports by programming the shape (in sheet) or entire userform in a graphic format e.g. jpg, gif? I would be very happy if anyone could help me in this. I've excel 2k Best regards Mark |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Is it possible to export an Excel 2007 chart as a vector graphic? | Excel Discussion (Misc queries) | |||
Export Format | Excel Discussion (Misc queries) | |||
Format data table in a graphic | Excel Discussion (Misc queries) | |||
What graphic file format prints best out of Excel? | Excel Discussion (Misc queries) | |||
What graphic format? | Excel Discussion (Misc queries) |