Bild mitkopieren
02.09.2003 08:33:17
Christian Baum
Ich kopiere via Makro die Formate & Werte eines Zellbereiches ín ein anderes Sheets (aus einem anderem Workbook). Innerhalb des zu kopierenden Zellbereiches befindet sich ein Logo, welches mitkopiert werden soll ... tut's aber nicht. :-/
Hier der Code:
Private Sub KLTsave_Click()
Dim VAPrint As Workbooks
Dim VASource As Worksheet
Dim VAFileName As String
VAFileName = "Y:\Disposition_Lademittel\Verpackungsanweisung an Lieferanten\" & Range("C2").Value & " - " & Range("C17").Value & ", " & Range("B6").Value
Range("A1:H56").Copy
Workbooks().Add
With ActiveSheet
.Columns("A").ColumnWidth = 3.43
.Columns("B").ColumnWidth = 22
.Columns("C").ColumnWidth = 6
.Columns("D").ColumnWidth = 10.71
.Columns("E").ColumnWidth = 10
.Columns("F").ColumnWidth = 10
.Columns("G").ColumnWidth = 10
.Columns("H").ColumnWidth = 10
End With
ActiveSheet.Paste
ActiveCell.PasteSpecial (xlPasteValues)
With ActiveSheet.PageSetup
.PrintArea = "A1:H56"
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveWorkbook.SaveAs (VAFileName)
End Sub
Hat einer von euch vielleicht ne Ahnung, wie ich Excel dazu bewegen kann das Bild immer mitzukopieren?
Im voraus besten Dank.
Gruß
Chris