VBA für Objekt einbetten
09.04.2019 14:28:57
Kisska
könnte mir jemand helfen, folgendes VBA zu erweitern:
Sub Datei_Objekt_einbetten()
Dim varDatei As Variant
varDatei = Application.GetOpenFilename(FileFilter:="AlleDateien(*.*),*.*", _
Title:="Bitte einzubettende Datei auswählen")
If varDatei False Then
ActiveSheet.OLEObjects.Add Filename:=varDatei, _
Link:=False, DisplayAsIcon:=True, IconFileName:="packager.dll", _
IconIndex:=0, _
IconLabel:=Mid(varDatei, InStrRev(varDatei, "\") + 1)
End If
End Sub
Quelle: https://www.herber.de/forum/archiv/1248to1252/1250201_Datei_als_Objekt_einbetten.html (Franz)
Folgende Erweiterungen hätte ich gerne:
1) Die Symbole sollen genau so aussehen, wenn man die Objekte über das Menü manuell einfügen würde. Bei dem Code oben wird für pdf und excel-Datei falsches Symbol verwendet.
2) Es soll nach der Datei-Auswahl eine Abfrage für Beschriftung kommen. Dabei soll bereits eine voreingestellte Beschriftung erscheinen (Dateiname ohne Pfad), die man frei editieren kann.
3) Der originale Dateiname soll als Alternativtext gespeichert werden. Manuell würde ich dies wie folgt machen: Rechte Maustaste auf das Objekt, dann Objekt formatieren, dann Alternativtext und zum Schluss den vorher kopierten Dateinamen einfügen.
VG, Kisska