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

Bild einfügen

Bild einfügen
14.03.2007 12:53:00
Werner
Hallo Zusammen,
so lade ich mir ein Bild ins Image. Gibt es eine Möglichkeit das ich mir das Bild, was ich anzeigen will auf dem Netzlaufwerk "I:\2232\" im Ordener 2232 auswählen kann?

Private Sub CommandButton1_Click()
Image1.Picture = LoadPicture("I:\2232\Riss3.jpg")
End Sub

Gruss Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Bild einfügen
14.03.2007 15:12:22
Ramses
Hallo

Private Sub CommandButton1_Click()
Dim picName As Variant
Dim tarPath As String
tarPath = "I:\2232\"
'Hier nichts mehr ändern
ChDrive Left(tarPath, 1)
ChDir tarPath
picName = Application.GetOpenFilename("Grafiken (*.jpg), *.jpg", , "Bilddatei wählen")
If picName = "" Then
MsgBox "Keine Datei gewählt", vbInformation + vbOKOnly, "Abbruch"
Exit Sub
End If
Me.Image1.Picture = LoadPicture(picName)
End Sub
Gruss Rainer
AW: Bild einfügen
14.03.2007 15:32:00
Werner
Hallo Rainer,
danke für die Hilfe, klappt prefekt.
Gruss Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige