Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild mit jeweiligem Bildnamen einfügen

Bild mit jeweiligem Bildnamen einfügen
20.08.2004 09:47:59
Harald
Hallo,
ich möchte über den Befehl FiletoOpen Bilder in ein Sheet einlesen. Das
klappt auch Prima. Nun möchte ich aber unter jedes Bild auch den jeweiligen
Bildnamen automatisch darunter stehen haben.
Kann mir jemand dazu helfen?
Vielen Dank
Harald

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild mit jeweiligem Bildnamen einfügen
20.08.2004 11:14:42
ANdreas
Hallo Harald,
hoffe das hilft weiter:

Private Sub AddPicture()
Dim fileToOpen
Dim pct As Picture
fileToOpen = Application _
.GetOpenFilename("JPG Files (*.jpg), *.jpg,Bitmap Files (*.bmp), *.bmp,GIF Files (*.gif), *.gif")
If fileToOpen <> False Then
On Error GoTo ErrorHandler
Application.ScreenUpdating = True
With ActiveSheet
.Range("C6").Select
Set pct = .Pictures.Insert(fileToOpen)
pct.Height = 350
pct.Width = 490
Range("C5").Value = fileToOpen
Range("C5").Replace What:="*\", Replacement:="", LookAt:=xlPart
.Range("A1").Select
End With
Application.ScreenUpdating = True
End If
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox Err.Description, vbCritical, "Error inserting picture"
End Sub

Gruß
Andreas
Anzeige

17 Forumthreads zu ähnlichen Themen

Varible Bildnamen zuweisen z.B.: ("Picture 14")
chrissey

Hallo Leut,
ich füge über Grafik einfügen ein Bild ein. Da das Bild immer eine Fortlaufende Nummer
besitzt würde ich diese gerne in eine Variable packen?
Dim Bj as string
BJ = ActiveSheets,? ( Wahrscheinlich was mit Name, oder )
Könnte mir hierbei jmd kurz unter die Arme gre...
29.03.2010 10:07:38
Thread-ID: 1149018
3 Beiträge
Anzeige
Ordnernamen (teileweise) in Bildnamen übernehmen
Lemmi

Hallo zusammen,
ich habe eine Ordnerstruktur mit Unterverzeichnissen in den thematisch Bilder abgelegt sind. Diese sollen eine Identifikations- Nr. erhalten.
Die Identifikationsnummer ist sechstellig.
Beispiel:
Ordner: Projekt ABC
U-Ordner1: 01_Haus
01_001 Bild1 Datum...
15.11.2012 15:24:25
Thread-ID: 1286840
13 Beiträge
Bildname ändert sich!!!
Giuseppe
Hallo Freunde guten Tag,
ich habe Bilder kopiert und eingefügt.
Das original Bild heiß "Picture 214" und das eingefügte "Picture 249"!!!!
Eigentlich sollte der gleiche Name behalten!
Wie kann man ein Bild kopieren und dabei auch der Name?
Danke für eure Hilfe
Giuseppe
18.11.2003 12:48:35
Thread-ID: 339728
3 Beiträge
Anzeige
hilfe von profi benötigt (bildnamen variable)
profi

hallo ich habe in Spalte A artikel nummern stehen
und in ordner c:\bilder
sind die bild dateien die zu den artikel nr gehöhren
in den namen ist irgendwo immer die artikel nr vorhanden
zb
artikel nr 4566455
C:\bilder\herstellerx4566455irgendwas.jpg
kann mir einer v...
21.07.2005 14:13:54
Thread-ID: 640477
23 Beiträge
Liste mit Bildnamen vergleichen und Bilder löschen
Patrick

Hallo zusammen
Wie kann man über ein Makro eine Liste mit Bildnamen mit den vorhandenen Bildern vergleichen und die Bilder löschen, deren Namen nicht auf der Liste stehen?
Ausgangslage:
Ich habe ein Tabellenblatt namens "Oktober". In den Spalten AD und AE ab Zeile zwei stehen die Bi...
12.10.2005 08:33:01
Thread-ID: 680361
9 Beiträge
Bildname in Zelle einfügen per Auswahl
Uwe

Hallo an alle,
möchte per Button auf meinem Tabellenblatt in meinem Ordner F:\Bilder mir ein Bild ansehen und dann den Bildnamen z.b. DCP_1001 in Zelle N39 übernehmen.
wie muß da der Code aussehen.
Hab mal wieder keine Ahnung und in der Recherche hab ich nichts gefunden um nur den B...
02.11.2006 20:05:32
Thread-ID: 816221
4 Beiträge
Bildname zu weisen _ Bild mit Makro löschen
Pabst

Guten Morgen Zusammen,
Benötige kurz eure Hilfe bei einem kleinen Problem.
Die Situation ist die folgende. Ich habe ein kleines Makro verfasst, dass nach Aktivieren dem User die Möglichkeit gibt aus dem Standardfenster 'Bild/Grafik aus Datei einfügen' eine Bilddatei auszuwählen.
Nac...
31.08.2007 09:43:35
Thread-ID: 902411
4 Beiträge
Userform Bildname(Variable) hide/show
Axel

Guten Morgen Excelenzen,
ich habe eine Twister-Userform programmiert. Bei Twister (realworld Spiel) muss man Hände/ Füße mit Unterschied Rechts/ Links auf farbige Felder setzen (Gelb/Blau/Rot/Grün). Mit dem Spiel wird ein Kreisel geliefert, der diese 2·2·4 Möglichkeiten wählt und der Kreise...
05.04.2020 11:00:01
Thread-ID: 1750543
4 Beiträge
Anzeige

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
2
7
12
2
5
22
8
3
3
3
2
4
3
3
1
1
7