Autor
|
Thema: Mehrere Bilder in Zellen fügen (2345 mal gelesen)
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 10. Mai. 2007 20:06 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich hätte eine Frage wie kann ich mehrere Bilder aus einem Ordner in Zellen einfügen. Die größe der Bilder würde ich mit Zellenhöhe und breite regeln Vielen, vielen dank im voraus für eure Hilfe.
UGMANX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 10. Mai. 2007 20:23 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 11. Mai. 2007 17:10 <-- editieren / zitieren --> Unities abgeben:
|
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 11. Mai. 2007 17:43 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Zitat: Original erstellt von UGMANX: wie kann ich mehrere Bilder aus einem Ordner in Zellen einfügen.
Da ich aus deiner Frage nicht mehr Informationen herauslesen kann -würde ich jetzt einfach halber sagen per hand... Wenn die Aufgabenstellung ein wenig deutlicher formuliert ist: - Ich möchte alle Bilder aus einem auswählbarem Verzeichnis nach Excel einbinden, ein Bild in jede Zelle, mit darüberliegender Zelle - die Beschreibung des eingebundenen Bildes....aufgeteilt auf einer 4 Spaltenmatrix... mit Vba, <Ordner auswählen und Schleife> ;-) - dann wäre die Aufgabenstellung ein wenig klarer und man würde nicht grübelt vor dem Thread sitzen und grübeln ;-) und womöglich einen Beitrag für die Tonne liefern habe mal diversen code aus dem Forum zusammengeschnippelt, nun bist du dran
Code: Sub Bilder() Dim NameZiel As Variant, Nr As Integer, shpRectangle As Shape ChDir "C:\Dokumente und Einstellungen\Thomas\Eigene Dateien\Eigene Bilder\" 'Pfadvorgeben NameZiel = Application.GetOpenFilename("Jpg (*.jpg),*.jpg," & _ "Png -Bilder (*.png),*.png," & _ "BMP (*.bmp),*.bmp", , "Bild-Dateien für Dokumentation auswählen!", MultiSelect:=True) If TypeName(NameZiel) = "Boolean" Then Beep MsgBox "Sie müssen min. eine Datei auswählen!" Exit Sub End If 'sortierroutine For i = LBound(NameZiel) To UBound(NameZiel) For J = (i + 1) To UBound(NameZiel) If NameZiel(i) > NameZiel(J) Then Rem MsgBox Nums(i) tmp = NameZiel(i) NameZiel(i) = NameZiel(J) NameZiel(J) = tmp End If Next J Next i 'einfüge Bilder in Zellen For Nr = LBound(NameZiel) To UBound(NameZiel) 'MsgBox "ausgewählte Dateien" & (NameZiel(Nr)) 'ab hier, da war ich rüben klauen :-) With Range(Cells(Nr, 3), Cells(Nr, 3)) Set shpRectangle = ActiveSheet.Shapes.AddShape( _ msoShapeRectangle, .Left, .Top, .Width, .Height) End With shpRectangle.OLEFormat.Object.ShapeRange.Fill.UserPicture NameZiel(Nr) Next Nr End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|