---

BilderausExceldatei.xls.txt

Hallo zusammen,

ichn hätte eine Frage an die Spezialisten,
Kann man Biler aus einem Excel-Datei in einem Ordner auto. kopieren.

Als Dateinamen könnten man IDH benutzen und die Datei als .jpg speichern.

Ich bedanke mich jetzt schon für eure Antwort.

mfg

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin.
Sorry, aber leider fremd verlinkt. pdf zu Office
Hoffe es beantwortet die Frage. 

------------------
Planst du noch, oder fährst du schon?!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,
ja, wenn man kann, kann man's 
Suchst Du und dann guckst Du der nepumuk kann sowas.

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

eine andere Möglichkeit

Sub bilder_speichern()
    Dim chDiagramm As ChartObject
    Dim picBild As Picture
    Dim lozeile As Long
    Application.ScreenUpdating = False
    For Each picBild In ActiveSheet.Pictures
        picBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, picBild.Width, picBild.Height)
        With chDiagramm.Chart
            .Paste
            For lozeile = 1 To ActiveSheet.Pictures.Count + 1
                If Cells(lozeile, 6).Top / picBild.Top >= 0.9 And Cells(lozeile, 6).Top / picBild.Top <= 1.2 Then
                    .Export Filename:="C:\Test\" & Cells(lozeile, 6) & ".jpg", FilterName:="JPG" ' andere Grafikformate sind möglich
                    Exit For
                End If
            Next lozeile
        End With
        chDiagramm.Delete
        Set chDiagramm = Nothing
        Set picBild = Nothing
    Next picBild
    Application.ScreenUpdating = True
End Sub

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP