Herbers Excel-Forum - das Archiv
Grafikdateien automatisch einfügen
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
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
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
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