+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: bilder-import (/thread-16748.html)
bilder-import - 3DF - 13.01.2021
Hallo ForumsUser und Betreiber,
auf der Suche nach einer Möglichkeit, Bilder in Excel zu übernehmen habe ich die Datei "bilder-import.xls" gefunden.
Läuft bei mir leider nur bis zu dem Punkt, wo "With ActiveSheet.Shapes("Picture 1")" ausgeführt werden soll - in beiden Makros.
Um irgendwelche Anpassungsfehler auszuschließen, habe ich noch einmal die downgeloadete Datei auf einen USB-Stick, der als Laufwerk F: an meinem PC angemeldet ist unverändert kopiert. In ein unter "F:\Pic\ ein paar Bilder eingefügt. Nach Starten der "bilder-import.xls" und der darin befindlichen Makros kommt es leider zum Abbruch bei der oben genannten code-Zeile. Nach meiner Beobachtung ändert sich die Nummerierung der Pictures bei jedem Durchlauf ...
Jedenfalls wurde immerhin ein Bild auf das Tabellenblatt kopiert und dessen Dateiname in die Zelle rechts daneben. Das lässt mich hoffen, dass es auch möglich sein wird, mehrere Bilder zu importieren und letzendlich gleichzeitig zu skalieren und sonstwie zu formatieren. ( Habe es heute auch nach längerem Probieren weder in Word noch in Excel geschafft, dies mit Bordmitteln zu erledigen :-( )
Hat Jemand eine Idee, was ich machen kann, um das Ganze zum Laufen zu bringen?
Herzliche Grüße
Thomas
RE: bilder-import - steve1da - 13.01.2021
Hola,
und wir müssen diese Datei jetzt auch suchen um dir zu helfen?
Gruß,
steve1da
RE: bilder-import - 3DF - 14.01.2021
Oh, sorry, ich dachte das wäre bekannt - ich wurde von da https://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/332-bilder-in-zellen-importieren direkt in dieses Forum verlinkt.
Es geht um Bearbeitung von Bilddateien ( hier *.jpg ), gemeinsame Formatierung, Abfrage von Dateieigenschaften. Eigentlich Dinge, die ich als Standardanforderungen an ein Office-Paket ansehen würde, aber bei MS anscheinend nicht mit Bordmitteln lösbar zu sein scheinen.
Meine verblassten und nie sehr ausgeprägt gewesenen VBA-Kenntnisse reichen leider nicht aus, um die Abfrage einer statischen Benennung zu umgehen. Die Bildnummerierung wird bei jedem Durchlauf des bzw. der Makros verändert. Da stehe ich auf dem Schlauch.
Und vielen Dank für Dein Interesse
Gruß Thomas
RE: bilder-import - Flotter Feger - 14.01.2021
Hallo,
Zitat:Es geht um Bearbeitung von Bilddateien ( hier *.jpg ), gemeinsame Formatierung, Abfrage von Dateieigenschaften.Kann es sein, dass du Office mit IrfanView oder Photoshop verwechselst ?
Sabina
RE: bilder-import - 3DF - 14.01.2021
(14.01.2021, 01:07)Flotter Feger schrieb: Hallo,
Zitat:Es geht um Bearbeitung von Bilddateien ( hier *.jpg ), gemeinsame Formatierung, Abfrage von Dateieigenschaften.Kann es sein, dass du Office mit IrfanView oder Photoshop verwechselst ?
Sabina
Hi,
für mich als Laien ist es nun einmal schwer, einzusehen, dass man durchaus Objekte in cumulo markieren und bearbeiten kann (Eigenschaften ändern), dies aber bei Bildern anscheinend ohne vba nicht hinzukriegen ist. Das oben angesprochene Makro kann dies im Ansatz schon, nur harpert es wohl an der Adressierung der gerade eingebetteten Dateien
Um die dargestellte Größe eingebetteter Objekte zu ändern, kann man sich natürlich auch gerne einen Softwareboliden zulegen und die Bedienung erlernen, aber mit jedem einzelnen Bild geht es ja auch standardmäßig - ist nur stupide, das von Hand durchzuführen.
Grüße
Thomas
![[Bild: 2021-01-14-01-32-56-15.jpg]](https://i.ibb.co/PzcMygD/2021-01-14-01-32-56-15.jpg)
![[Bild: 2021-01-14-01-36-36-16.jpg]](https://i.ibb.co/CMYWkm2/2021-01-14-01-36-36-16.jpg)
RE: bilder-import - Flotter Feger - 14.01.2021
Hallo,
wie gesagt, Office ist kein IrfanView ...
Dieser Code liest alle Bild-Dateien ein und markiert sie alle zusammen.
Code:
Option Explicit
Sub BilderImport()
'*********************************************************************************
'** Bilder werden in die Spalte A eingefügt. Die Bilder werden auf die
'** eingestellte Spaltebreite skaliert. Die Zeilenhöhe wird an die
'** skalierte Bildhöhe angepasst
'*********************************************************************************
'* * Dimensionierung der Variablen
Dim strVerzeichnis$, strDatei$
Dim pct As Picture
Dim lngZeile As Long 'Zeile zum Eintragen der Bilder
Dim lngSpalte As Long 'Spalte zum Eintragen der Bilder
Dim varBreite As Variant 'Spaltenbreite
Dim varHoehe As Variant
Dim shp As Long
'** Verzeichnis und Dateinamen definieren und auslesen
strVerzeichnis = "E:\Excel\Bilder"
strDatei = Dir(strVerzeichnis & "\*.bmp")
'** Startzeile + Spalte festelegen
lngZeile = 5
lngSpalte = 1
'** Ermittlung der Spaltenbreite
varBreite = Columns("A:A").Width
shp = 1
'** Bild 1 bis n durchlaufen
Do While strDatei <> ""
If strDatei = "" Then Exit Do
Cells(lngZeile, lngSpalte).Select
Set pct = ActiveSheet.Pictures.Insert(strVerzeichnis & "\" & strDatei)
pct.Name = "Picture " & shp
ActiveSheet.Shapes("Picture " & shp).Select
Cells(lngZeile, lngSpalte + 1) = strDatei ' schreiben Dateinamen
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = varBreite '* 5.355 'Bild auf Spaltenbreite skallieren
'** Zeilenhöhe festlegen
varHoehe = ActiveSheet.Shapes("Picture " & shp).Height
Rows(lngZeile).RowHeight = varHoehe
'** Zeilenzähler erhöhen
lngZeile = lngZeile + 1
'** Shape-Zahler erhöhen
shp = shp + 1
strDatei = Dir()
Loop
ActiveSheet.Pictures.Select
End SubRE: bilder-import - 3DF - 15.01.2021
Hallo Sabina,
ganz herzlichen Dank. Der Code läuft ohne Probleme.
Mit kleinen Änderungen auch genau so für *.jpg-Dateien zu verwenden ...
Vielleicht bekomme ich es noch hin, alle gängigen Bildformate nacheinander zu importieren. Dann wäre es perfekt für meine Zwecke.
Ich wünsche Dir einen sehr schönen Tag
Thomas