Clever-Excel-Forum

Seiten: 1 2

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

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

Andre,
dass ist der Hammer. Vielen Dank.

Gruß Hicki

Hallöchen,

Du musst dann nur mal das Icon wechseln Smile

Kannst den Code dazu aufzeichnen, ich hab das mit einer pdf gemacht...

Alles gut. Nochmals vielen Dank

Seiten: 1 2

Hicki

schauan

Hicki

schauan

Hicki