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

Mark,
1 way, Save As Web page and all graphics are generated in a separate folder.
Does work with userforms though.

NickHK

"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

Hi,
I saved (shape) as Web paged but its create folder and
other files.
I wonder, if is any way (maybe api) to export to only one
files with grapic format jpg or gif.
Or can I create for that purpose any class object (shape)
with metod export to file jpg?

Regards
Mark

-----Original Message-----
Mark,
1 way, Save As Web page and all graphics are generated in
a separate folder.
Does work with userforms though.

NickHK

"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


.

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

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

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