excel-worksheet opslaan als afbeelding in folder

[JHM Wetzelaer]

Is er iemand die mij kan uitschrijven in visual basic hoe ik een excel-worksheet als afbeelding (JPEG) kan omzetten en vervolgens kan opslaan in de folder Mijn Afbeeldingen?

Alvast bedankt

 

[Wigi]

Zie bij Ivan Moala:

http://www.xcelfiles.com/VB_Quick17.html

Wigi

 

[JHM Wetzelaer]

Helaas Wigi,

en dan gaat het in de Engelse taal en dan weet ik "effe" niet precies wat ik moet hebben/waar ik moet kijken.
Het voorbeeld dat in mijn geval van toepassing zou moeten zijn, kan ik niet downloaden (de link werkt blijkbaar niet) anders had ik de gebruikte visual basic code wel kunnen achterhalen.

 

[Charlize]

Sub save_to_jpg()
Dim MyChart As Chart
Dim objPict As Object
Dim RgCopy As Range

On Error Resume Next
Set RgCopy = Application.InputBox("Select the range to copy / Saveas", _
    "Selection Save", Selection.Address, Type:=8)
If RgCopy Is Nothing Then Exit Sub
On Error GoTo 0
RgCopy.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveSheet.PasteSpecial Format:="Bitmap"
Set objPict = Selection
With objPict
    .CopyPicture 1, 1 ':=1
    Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width + 8, .Height + 8).Chart
End With
'Bewaren in directory waarin je werkboek staat, als temp.jpg
With MyChart
    .Paste
    .Export ThisWorkbook.Path & Application.PathSeparator & "Temp.jpg"
    .Parent.Delete
End With
'// opschonen van objecten en wis afbeelding op werkblad
objPict.Delete
Set RgCopy = Nothing
Set objPict = Nothing
End Sub