Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 379
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Textverarbeitung



Supportnet/Forum/Textverarbeitung
von LucyLoeley vom 16.06.2017, 20:30 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Bilder in Excel in Zelle anzeigen funktioniert nicht

 (96 Hits)

Hallo Zusammen,
Ich bin schier am verzweifeln.
Ich habe mich jetzt auch schon ein paar Stunden mit der Suche in dem Forum beschäftigt und versucht die angebotenen Lösungen umzuwandeln aber irgendwo passt was nicht.
Eigentlich ganz simple, dachte ich.

Ich habe eine Excel-Tabelle mit mehreren Artikel in der ich bis jetzt immer von Hand die Produktbilder als Grafik eingebunden habe. Dies ist sehr mühsam. Aber ich muss mit einem Klick sehen können was für ein Produkt dahinter steckt.

Also dachte ich mir mit einem Makro müsste dies ja funktionieren das so abzugleichen.
Diesen Code habe ich gefunden und probiert. Doch bis auf die Fehlermeldung bekomme ich nichts angezeigt.

Meine Artikelnummer steht übrigens in Spalte D und mein Bild sollte in Spalte G abgebildet werden. Vielleicht steckt da der Wurm ja drinn. Oder meine Bilder sind zu groß, kann das Sein?


Sub Bilder_einfügen()
Dim Pfad As String
Dim strDatnam As String
Dim Wiederholungen As Long

'Pfad anpassen
Pfad = "C:\Bilder\"
'Spalte B ab Zeile 2 durchlaufen
For Wiederholungen = 2 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
'Namen der Bilder stehen in Spalte B - ohne Endung; Einlesen in Variable mit Pfadangaben
strDatnam = Pfad & Cells(Wiederholungen, 4).Value & ".jpg"
'Prüfen, ob Bilddatei im Verzeichnis existiert
If Dir(strDatnam) <> "" Then
'falls ja: Bilder werden in Spalte A eingefügt, Größe 3 x 3 cm
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 7).Left, Cells(Wiederholungen, 3).Top, 85, 85
Else
'falls nein, wird in Spalte A eine Fehlermeldung geschrieben
ActiveSheet.Cells(Wiederholungen, 1) = "Bild nicht gefunden"
End If
Next

End Sub

Sieht jemand was ich falsch mache?

Danke für Eure Hilfe. Ach ja mein Excel ist 2016. Liegt es evtl. an der Version?


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 19.06.2017, 13:09 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

liegen deine Bilder denn im Verzeichnis C:\Bilder\ ? Wenn nicht musst du natürlich den Pfad anpassen.

Außerdem solltest du noch die folgenden Zeilen anpassen:
ActiveSheet.Shapes.AddPicture strDatnam, msoFalse, msoTrue, Cells(Wiederholungen, 7).Left, Cells(Wiederholungen, 7).Top, 85, 85

und
ActiveSheet.Cells(Wiederholungen, 7) = "Bild nicht gefunden"


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Jun 22 21:12:11 2017