Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige