Hallo Zusammen,
ich habe in einer Excel-Tabelle in einer bestimmten Zelle einen Namen oder eine Nummer stehen. Sagen wir in Zelle A3. An anderer Stelle in dieser Tabelle habe ich ein Image-Steuerelement, in das, mit Hilfe meines Makros, ein Bild eingefügt wird, das in einem bekannten Ordner liegt. Bislang muss ich die Datei im Dialogfenster aber immer noch suchen und auswählen. Ist es möglich die Datei direkt zu öffnen?
Zum Beispiel steht in der Zelle A3: 123Abc
Dateipfad würde dann zum Beispiel lauten: C:/Ordner1/OrdnerA/123Abc.jpeg
Kann ich den Dateipfad im Code so angeben, dass sofort die Datei geöffnet wird, die so heißt wie der Inhalt in Zelle A3? Wie müsste ich meinen Code erweitern, dass eine Meldung kommt, wenn die Datei doch nicht im Ablageordner liegt?
Mein Code lautet bisher:
Sub Bild()
ActiveSheet.OLEObjects("Image1").Object.Picture = LoadPicture(BildEinfuegen)
End Sub
Function BildEinfuegen() As String
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "Dateipfad"
.ButtonName = "OK"
.Title = "Bilddateien ausw?hlen"
.Show
If .SelectedItems.Count = 0 Then
BildEinfuegen = ""
Else
BildEinfuegen = .SelectedItems(1)
End If
End With
End Function
|