excel vba image mee kopieren

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

Klik om te vergroten...

Superzeeuw zei:

Staat de afbeelding die je wilt kopiëren wel in de geselecteerde range?

Klik om te vergroten...

ExcelAmateur zei:

ningrahare,

Ik heb net een plaatje (foto) geplaatst en tekst in verschillende cels gezet.
Toen met de macrorecorder een macro op genomen en hij kopieerd het plaatje (foto) mee
Ik gebruik Office 2007

In de opties gekeken en daar staat Ingevoegde objecten kopieren aan gevinkt.
Dat kan bij jou dus eventueel het probleem zijn.

Klik om te vergroten...

ningrahare,
die heb ik gekeken staat goed maar moet er niet iets bij net als ?
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

Klik om te vergroten...