Bild exportieren / speichern unter

[Harald]

Hallo NG

in einer Excel Tabelle befindet sich ein Bild. Nun m�chte ich dieses
exportieren bzw. speichern unter...
Leider sehe ich kein Men� dazu. Ich kann es nur kopieren

Gr��e
Harald

[Alexander Wolff]

Die Tastatur von Harald wurde wie folgt gedr�ckt:

> in einer Excel Tabelle befindet sich ein Bild. Nun m�chte ich dieses
> exportieren bzw. speichern unter...
> Leider sehe ich kein Men� dazu. Ich kann es nur kopieren

Bild markieren,
Strg-C,
Photo Editor (oder anderes Grafikprogramm) �ffnen,
Bearbeiten - Als neues Bild einf�gen

mache ich dann jedenfalls (weil ich den Photo Editor eh immer verwende)
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

[Beverly]

Hi Harald,

dafür gibt es kein Menü.

Wenn du kein Excel2007 verwendest, kannst du die Tabelle als Webseite
speichern. Dabei wird auch ein Ordner angelegt, in welchem enthaltene
Grafiken abgespeichert werden.

Eine weitere Möglichkeit bietet der folgende VBA-Code:

Sub BilderExportieren()
Dim shBild As Shape
Set shBild = ActiveSheet.Shapes(1)
BildExportShape shBild, "Bild1" '<== Bildnamen anpassen
End Sub

Sub BildExportShape(shBild As Shape, strBild As String)
Dim chDiagramm As ChartObject
Application.ScreenUpdating = False
shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width,
shBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="C:\Test\" & strBild & ".jpg", FilterName:="JPG" '
andere Grafikformate sind möglich
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shBild = Nothing
Application.ScreenUpdating = True
End Sub

Bis später,
Karin
http://beverly.excelhost.de/

"Harald" wrote:

> Hallo NG
>
> in einer Excel Tabelle befindet sich ein Bild. Nun möchte ich dieses
> exportieren bzw. speichern unter...
> Leider sehe ich kein Menü dazu. Ich kann es nur kopieren
>
> Grüße
> Harald
>
>