Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bilder per Drop-Down Menü in Exel einfügen

Bilder per Drop-Down Menü in Exel einfügen
19.06.2004 22:26:30
Marion
Hallo,
ich habe eine Bilderdatenbank (C:\Bilder\Bild1-Bild10)
die ich über ein Drop-Down Menü in Excel einfügen möchte.
Wie ich dieses Drop-Down Menü hinbekomme weiß ich (Daten-Gültigkeit)
aber wie bekomme ich es hin, das wenn ich davon ein Bild ausgewählt habe es z.B. in Zelle A1 angezeigt wird ?
Ach ja, die bilder haben alle die selbe größe von ca 3,5 x 7,5 cm
Es währe sehr nett, wenn jemand helfen kann !
Marion
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder per Drop-Down Menü in Exel einfügen
K.Rola
Hallo,
steht der komplette Pfad einschließlich Bildname im dropdown, oder
nur der Bildname?
Sollen das letzte Bild immer entfernt werden, wenn das nächste geladen wird?
Gruß K.Rola
AW: Bilder per Drop-Down Menü in Exel einfügen
19.06.2004 22:54:42
Josef
Hallo Marion!
Dieser Code im Modul der Tabelle sollte es tun.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intB As Integer
If Target.Address = "$C$1" Then  'Zelle mit dem Dropdown! anpassen
On Error Resume Next
Me.Shapes("Bild").Delete
On Error GoTo 0
With Target
Select Case .Value
Case "Bild 1"
intB = 1
Case "Bild 2"
intB = 2
Case "Bild 3"
intB = 3
Case "Bild 4"
intB = 4
Case "Bild 5"
intB = 5
Case "Bild 6"
intB = 6
Case "Bild 7"
intB = 7
Case "Bild 8"
intB = 8
Case "Bild 9"
intB = 9
Case "Bild 10"
intB = 10
Case Else
On Error Resume Next
Me.Shapes("Bild").Delete
On Error GoTo 0
Exit Sub
End Select
End With
[A1].Select
Me.Pictures.Insert( _
"C:\Bilder\Bild" & intC & ".gif").Name = "Bild"
End If
End Sub

Gruß Sepp
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige