Herbers Excel-Forum - das Archiv

Grafikdateien automatisch einfügen

Bild

Betrifft: Grafikdateien automatisch einfügen
von: Brit

Geschrieben am: 17.02.2005 09:29:59
Guten Morgen!
Ich habe folgendes Problem:
Ich habe im Ordner C:\bilder eine große Anzahl von Bilddateien (*.eps).
Diese Bilder sollen nacheinander jeweils nur ein mal in die Spalte A eingefügt werden!
Also:
A1 Bild1
A2 Bild2
A3 Bild3
usw.
in Spalte B soll dann der jeweilige Name der Datei ohne Anhängsel (also ohne .eps)stehen.
Also
A1 Bild1 xyz
A2 Bild2 abc
A3 Bild3 hji
Kann mir jemand da vieleicht einen Anstoß geben, wie ich an die Sache rangehe?
Das ganze kann bei Betätigung einer Schaltfläche ausgelöst werden.
Brit
Bild

Betrifft: AW: Grafikdateien automatisch einfügen
von: EtoPHG

Geschrieben am: 17.02.2005 09:37:29
Hallo Brit,
Vielleicht gibt Dir dieses Beispiel einen Anstoss:
Ändere die Werte in B1 und B2 entsprechend Deiner Umgebung
https://www.herber.de/bbs/user/18228.xls
Gruss Hansueli
Bild

Betrifft: AW: Grafikdateien automatisch einfügen
von: EtoPHG
Geschrieben am: 17.02.2005 09:40:40
Übrigens Brit,
Hast Du das mit der Zellenhöhe in Deinem alten Thread mitbekommen ?
Gruss Hansueli
Bild

Betrifft: AW: Grafikdateien automatisch einfügen
von: Brit

Geschrieben am: 17.02.2005 09:55:17
Hallo Hansuli!
Dein Beispiel muß ich mir mal genauer anschauen!
Danke für die schnelle Hilfe!
Das mit der Höhe habe ich insofern hinbekommen, da alle Bilder die gleiche Höhe haben, habe ich der Zeilenhöhe einen festen Wert zugeteilt!
Nicht ganz die Art und Weise wie ich wollte, aber es klappt gut so!
Ich habe bei Internetrecherchen folgenden Code gefunden:
und nach meinen Vorstellungen abgeändert! Es klappt gut! Nun muß ich noch beide miteinander koppeln und dann müßte das super sein!
Internet sei Dank und auch diesem Forum sei Dank!
Ihr habt mir schon sooo sehr geholfen!
Brit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then
Exit Sub
End If
Dim ZuOeffnendeDatei
Dim isGrafik As Boolean, i As Long
On Error Resume Next
ZuOeffnendeDatei = Application.GetOpenFilename( _
, , "Grafikdateien", , True)
Range("A1").Activate
With Sheets("Tabelle2")
For i = 1 To UBound(ZuOeffnendeDatei)
isGrafik = True
Select Case LCase(Right$(ZuOeffnendeDatei(i), 3))
Case "jpg"
Case "gif"
Case "bmp"
Case Else
End Select
If isGrafik Then
.Pictures.Insert ZuOeffnendeDatei(i)
ActiveCell.Offset(1, 0).Activate
End If
Next
End With
End Sub

 Bild
Excel-Beispiele zum Thema "Grafikdateien automatisch einfügen"
Grafikdateien suchen Automatische Datumformatierung unterdrücken
Automatisch Sicherungsdatei erstellen Automatisches Komplettieren einer Zelleingabe
Zelleingaben automatisch auf volle 1,2-Teile runden Tabelle nach Datumseintrag automatisch sortieren
Eingaben in B:D automatisch mit 6 multiplizieren Zelleingabe automatisch in Kopfzeile übernehmen
Nach Zelleingabe automatische Sortierung Automatische Sortierung bei Zelleintrag