Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Bild in Excell-Datei SPEICHERN und nicht verknüpfen
 01.03.2012 14:51:29 Michael F.
Solved
13.03.2012 16:35:49 Michael
Solved

Ansicht des Beitrags:
Von:
Michael F.		 Datum:
01.03.2012 14:51:29		 Views:
2391		 Rating:
     
Antwort:
 Nein
Thema:
VBA: Bild in Excell-Datei SPEICHERN und nicht verknüpfen

Hallo,

ich habe mir einen VBA-Code zusammengeschnipselt, welcher Bilder aus einem Ordner (benannt nach Artikelnummer +.jpg) automatisch in eine Excell-Datei einfügt. Allerdings macht das Makro dies nur als Verknüpfung. Gibt es eine Möglichkeit die Bilder direkt in der Excell-Datei zu speichern? Danke schonmal.

Hier der Code:

 

Sub GraphicfileInZelleEinfuegen()
    Dim aktZeile As Long
    Dim spalte As Long
    Dim anfangsZeile As Long
    Dim ws As Worksheet
    Dim pfad As String
    
    spalte = 5                  'spalte in der das bild eingefügt wird a=1 b=2 ...
    anfangsZeile = 1            'zeile in der das makro anfangen soll 1=1 2=2 ...
    pfad = "C:\Neuer Ordner\"   'pfad des ordners in dem sich die bilder befinden

    
    Set ws = ThisWorkbook.Worksheets("Tabelle1")
                                          
   
    With ws
        On Error Resume Next
        .Pictures.Delete
        On Error GoTo 0

        For aktZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To anfangsZeile Step -1
                If (Cells(aktZeile, 1).Text) = "" Then
                Else
                    If Dir(pfad & "\" & .Cells(aktZeile, 1).Text & ".jpg") = "" Then
                        .Cells(aktZeile, spalte) = "Bild fehlt"
                    Else
                        With .Pictures.Insert(pfad & "\" & .Cells(aktZeile, 1).Text & ".jpg")
                            .Top = ws.Rows(aktZeile).Top
                            .Height = ws.Rows(aktZeile).Height
                            .Left = ws.Columns(spalte).Left
                        End With
                    End If
                End If
        Next aktZeile
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Bild in Excell-Datei SPEICHERN und nicht verknüpfen
 01.03.2012 14:51:29 Michael F.
Solved
13.03.2012 16:35:49 Michael
Solved