Image Pfad
05.07.2016 14:17:01
Fatih
Ich öffne in der Userform ein Bild
nun möchte ich den Pfad dieses Bildes in die Excel Tabelle übertragen.
Könntet ihr mir helfen.
Bisher sieht mein Code wie folgt aus:
Private Sub Bild_Click()
' Bild auswählen und Pfad und Bildname in tag schreiben
Image2.Tag = GetFile
' Bild ins Image einfügen
Image2.Picture = LoadPicture(Image2.Tag)
' UserForm aktialisieren damit Bild angezeigt wird (kann einen Augenblick dauern)
AntragaufÄnderung.Repaint
End Sub
' Bild auswählen
Function GetFile() As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg"
.ButtonName = "Bild laden"
.Title = "Bild auswählen"
.Show
If .SelectedItems.Count = 0 Then
GetFile = ""
Else
GetFile = .SelectedItems(1)
End If
End With
End Function