excel vba image+ tekst mee kopieren

[ningrahare]

excel vba image mee kopieren
hallo allemaal,
kan iemand me met volgende code helpen.
ik kan wel tekst kopieren maar afbeelding kopieerd die niet.
alvast bedkant

Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
[A1:h58].Copy 'eventueel nog aan te passen
Workbooks.Add
With Selection
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
For Each Sh In Worksheets
If Sh.Index > 1 Then
Sh.Delete
End If
Next
With ActiveWorkbook
.SaveAs "C:\Users\Zontelecom\Desktop\Factuur\" & [G11] & [B15] & [C10].Value & ".xls"
ActiveWorkbook.SaveAs Filename:="...", FileFormat:=xlText, AddToMRU:=False
ActiveWorkbook.Close SaveChanges:=False
.Close
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
MsgBox "Factuur is opgeslagen"
End Sub

 

[ExcelAmateur]

ningrahare,

Probeer mijn file eens, bij mij werkt het.

 

[Superzeeuw]

Niet zo netjes om je vraag voor de tweede keer te stellen.

hier staat exact dezelfde vraag:
http://www.helpmij.nl/forum/showthread.php/576641-excel-vba-image-mee-kopieren

 

[huijb]

Dus gaat deze dicht en mag je daar verder.