Office: Bildkopie - Darstellung voller Breite

Hallo!

Habe eine Tabelle (Querformat) die ich entsprechend verkleinert als Bild in eine Word-Datei einfügen möchte. Dabei wird das Bild seitlich immer abgeschnitten dargestellt.

Gibt es eine andere Möglichkeit, als den gesamten Bildschirm als Screenshot in Word einzufügen und zuzuschneiden? Habe nämlich etliche Tabellen auf diese Art zu kopieren.

Danke!

LG

alex26

 

Hi Alex,

vielleicht wäre das eine Möglichkeit:

Code:

Sub BereichAlsBildExportieren()
    Application.ScreenUpdating = False
    Range("A6:I24").CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Range("A6:I24").Width, _
        Range("A6:I24").Height).Chart
        .Paste
        .Export Filename:="C:\Test\Bild.jpg", FilterName:="JPG"
        .Parent.Delete
    End With
    Application.ScreenUpdating = True
End Sub

Bereich musst du anpassen.

Bis später,
Karin

 

Hallo Karin!

Danke für den Lösungsvorschlag. Leider ist der Bereich nicht immer gleich dh. müsste ich den Code für jede Bildkopie anpassen. Vielleicht gibt es noch eine einfachere Lösung, bin nämlich mit Makros noch nicht so vertraut.

Hab das bei mir zu Hause (Excel 2007) probiert, die Bildkopie kann ich ohne Makro einfügen, bei voller Darstellung. Wahrscheinlich geht das bei Excel 2002 nicht.

LG

alex26

 

Hi Alex,

wenn im Code an allen Stellen Range("A6:I24") ersetzt durch Selection, wird immer der selektierte Bereich als Bild gespeichert - dann ist das Ganze sehr variabel einsetzbar.

Du kannst die Bildkopie auch direkt in Word einfügen (das geht mit allen Excelversionen), aber - so weit ich weiß - ist die Bildqualität nicht so gut wie wenn man den Bereich erst als Bild direkt speichert (was der Code macht) und dann das gespeicherte Bild in Word einfügt.

Bis später,
Karin