Thema Datum  Von Nutzer Rating
Antwort
Rot Macro für Bilder einfügen bug
 09.06.2018 10:36:30 grigori7
NotSolved
09.06.2018 15:14:24 Gast93656
NotSolved

Ansicht des Beitrags:
Von:
grigori7		 Datum:
09.06.2018 10:36:30		 Views:
1004		 Rating:
     
Antwort:
  Ja
Thema:
Macro für Bilder einfügen bug

Hallo zusammen,

 

ich habe einen Bilder Macro der folgendermaßen funktioniert: wenn es aktiviert wird, sucht es in der Spalte B in der Excel nach Produktnamen wie zb.: 202313-1231 und sucht sich dann das passende Bild aus einem abgelegten Order mit dem selben Namen und fügt diesen in die Excel. Bis dahin funktioniert alles super. Das einzige Problem ist jetzt, dass wenn ich das Dokument samt den Bildern abspeichere und an andere verschicke, sie die Bilder nicht mehr angezeigt bekommen. 

Hat jemand eine Ahnung wieso das so ist? Wäre super dankbar für eure Hilfe

 

Sub InsertPics()

    Dim Rw&, PFAD$, Datei$, Bild As Shape

    PFAD = "\\levi.com\ls\Regional\LSE\BRU\DATA\Merchandising\H2'18\6. VLP\PICTURES\"
    With ActiveSheet
        For Rw = 2 To 100
            Datei = .Range("B" & Rw) & ".jpg"
            If Dir(PFAD & Datei) <> vbNullString Then
                .Pictures.Insert (PFAD & Datei)
                Set Bild = .Shapes(.Shapes.Count)
                Bild.LockAspectRatio = msoFalse
                Bild.Left = .Range("A" & Rw).Left
                Bild.Top = .Range("A" & Rw).Top
                Bild.Width = .Range("A" & Rw).Width
                Bild.Height = .Range("A" & Rw).Height
            End If
        Next
    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 Macro für Bilder einfügen bug
 09.06.2018 10:36:30 grigori7
NotSolved
09.06.2018 15:14:24 Gast93656
NotSolved