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

Beiträge aus den Excel-Beispielen zum Thema "Grafikdateien automatisch einfügen"