Microsoft Excel

Herbers Excel/VBA-Archiv

Bild mitkopieren

    Betrifft: Bild mitkopieren von: Christian Baum
    Geschrieben am: 02.09.2003 08:33:17

    Einen wunderschönen guten Morgen zusammen! :)

    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
      


    Betrifft: AW: Bild mitkopieren von: GerdW
    Geschrieben am: 02.09.2003 13:20:40

    Kein Wunder, wenn du nur Werte kopierst.

    Gerd