Appl_Path = Get_Application_exe(Datei.Endung)
22.01.2009 09:51:05
Andreas
ich habe ein Programm geschrieben mit dem man beliebig zuvor selektierte Dateien als Objekte in ein Office Datei als Icon einbinden kann. Die Icon Information wird durch eine *.exe, *.dll oder auch *.ico an
"IconFileName:=" übergeben, so ist es üblich.
Ich möchte wissen, wie kann ich den Pfad der Anwendung erhalten, wenn nur Pfad und Dateityp bekannt sind. Dateityp und Programmzuordnung sind in der Registry erfasst.
Application_Path = Get_Application(Dateityp)
Pfad_der_Datei = CStr(UserForm7.ListBox1.Column(1, i)
--> IconFileName:=Get_Application(CStr(UserForm7.ListBox1.Column(1, i))
'Speichern
Private Sub CommandButton3_Click()
Dim i, Zeile As Long
For i = UserForm7.ListBox1.ListCount - 1 To 0 Step -1
On Error Resume Next
'Objekt (File.*) als Datei Icon einbinden
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", _
FileName:=CStr(UserForm7. ListBox1.Column(1, i)), _
LinkToFile:=False, DisplayAsIcon:=True, _
IconFileName:=CStr(UserForm7.ListBox1.Column(1, i)), _
IconIndex:=1, IconLabel:=CStr(UserForm7.ListBox1.Column(0, i))
On Error GoTo 0
Next
UserForm7.Hide
End Sub
Danke.
Gruß Andreas