Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bilder auf UF aus ordner anzeigen

bilder auf UF aus ordner anzeigen
21.12.2004 11:16:46
ray
hallo,
auf meiner UF lasse ich mir bilder anzeigen, dessen name ich kenne.
jetzt möchte ich mir die Bilder in einem bestimmten Ordner anzeigen lassen, wobei ich die Namen der Bilder nicht kenne. Es soll 1 angezeigt werden und bei buttonclick das nächste.
Geht so etwas mit VBE? Nehme auch gern code für VB 6.0
Viele Grüße aus Hamburg, jetzt mir mehr Wolken...
ray

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bilder auf UF aus ordner anzeigen
EtoPHG
Hallo Ray,
Hier ist ein kleines Beispiel:
Verzeichnis (z.B. C:\Bilder) in Zelle B1 eintragen
Dateitype (z.B. bmp) in Zelle B2 eintragen
Dann Userform aufrufen
https://www.herber.de/bbs/user/15136.xls
Gruss Hansueli
Korrektur Activate_Ereignis
EtoPHG
Hallo Ray,
Verbesserte Version mit folgendem Code

Private Sub UserForm_Activate()
cbBck.Enabled = False
cbFwd.Enabled = True
If IsError(ActiveSheet.Cells(3 + ixPicNr, 1).Value) Then
MsgBox "Es sind keine Bilder vorhanden"
Me.Hide
Else
ixPicNr = 1
Call showPic
If Not (IsError(ActiveSheet.Cells(3, 1).Value)) Then cbFwd.Enabled = True
End If
End Sub

Gruss Hansueli
Anzeige
AW: bilder auf UF aus ordner anzeigen
u_
Hallo Ray
natürlich geht das.
Option Explicit
Public cntBild As Integer

Private Sub CommandButton1_Click()
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = "c:\bilder"
.Filename = "*.jpg"
.Execute
If .FoundFiles.Count > cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
End If
End With
End Sub

Gruß nach HH
Danke Euch zwei mT
21.12.2004 18:06:31
ray
Hallo und Danke Euch, ich bin immer wieder überrascht, mit welcher kleinen Lösung meine riesigen Probleme beiseitigt werden.
Ich wünsche Euch ein frohes Fest und guten Rutsch
Ray
PS: heute ich der kürzeste Tag, in Hamburg bei -2 Grad
Anzeige

301 Forumthreads zu ähnlichen Themen

Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Bilder aus dem Web in Excel2007 anzeigen
Thomas

Hallo Experten,
seit Stunden habe ich jetzt recherchiert und probiert, aber noch keine Lösung gefunden.
In Excel 2000 und 2003 konnte ich per VBA Bilder aus dem Internet direkt als Bild in einer Excel-Tabelle anzeigen lassen und so einen Katalog erzeugen:
Set image = ActiveSheet.Pic...
13.03.2009 18:43:51
Thread-ID: 1059977
11 Beiträge
Anzeige
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 Beiträge
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 Beiträge
Bild hinter Zellen
joerg

Hallo Zusammen,
habe ein kleines Problem.
Gibt es in XLS eine Möglichkeit ein Bild "hinter" die Zellen zu legen, sodass eine Art Raster entsteht? Als Hintergrundbild ist etwas zu unflexibel, da es 3-4 Bilder auf einer A4 - Seite sein sollen.
Abhängig von der angewählten Zelle auf...
02.11.2009 16:11:56
Thread-ID: 1113879
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
8
10
7
8
2
6
7
1
1
4
3
1
3
7
7
4
1
1
7
3
2
1
2