Datei-Eigenschaften einer eingebundenen Datei in einer Zelle anzeigen

[Hicki]

Hallo Andre,

vielen Dank für Deine bisherige Hilfe. Da ich noch Anfänger bin, werde ich das mit dem Makro nicht packen.
Es wäre nett, wenn Du mir damit helfen könntest.

Gruß Hicki

[schauan]

Hallöchen,

das wäre dann so was:

Code:

Sub ObjektEinfuegen()
'Variablendeklarationen
Dim LResult&
Dim strFullName, strFileName
'Filedialog aufrufen
With Application.FileDialog(msoFileDialogOpen)
    'kein Multiselect
    .AllowMultiSelect = False
    'Dialog anzeigen
    .Show
    'Wenn was gewaehlt wurde dann das in Variable uebernehmen ansonsten Makro verlassen
    If .SelectedItems.Count > 0 Then strFullName = .SelectedItems(1) Else Exit Sub
'Ende Filediallog aufrufen
End With
'Pfad und Dateiname auseinandernehmen
strFileName = Split(strFullName, "\")
'Dateigroesse ermitteln
LResult = FileLen(strFullName)
'Objekt an Position der aktiven Zelle einfuegen und angezeigten Name festlegen
ActiveSheet.OLEObjects.Add Filename:= _
        strFullName, Link:=False, DisplayAsIcon:= _
        True, IconFileName:= _
        "C:\WINDOWS\Installer\{AC76BA86-7AD7-1031-7B44-AC0F074E4100}\PDFFile_8.ico", _
        IconIndex:=0, IconLabel:=strFileName(UBound(strFileName, 1))
'2 Spalten neben der aktiven Zelle die Groesse notieren
ActiveCell.Offset(, 2) = LResult
End Sub

[Hicki]

Andre,
dass ist der Hammer. Vielen Dank.

Gruß Hicki

[schauan]

Hallöchen,

Du musst dann nur mal das Icon wechseln Kannst den Code dazu aufzeichnen, ich hab das mit einer pdf gemacht...

[Hicki]

Alles gut. Nochmals vielen Dank