ich möchte per VBA Befehl ein PDF Dokument (immer das selbe) als Objekt in einen Range verbundener Zellen einfügen und positionieren.
Einfügen klappt, positionieren nicht.
Ich habe schon andere Objekte erfolgreich in einzelne Zellen eingebettet, aber ich habe keine Ahnung wie ich es diesmal machen muss.
Per Makrorekorder sieht mein Code so aus:
Range("A8:I12").Select
ActiveSheet.OLEObjects.Add(Filename:= _
"R:\Vorlagen\Wartungsprotokoll\Anleitung\ClickHereForHelp_DE.pdf", Link:= _
False, DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-7AD7-FFFF-7B44-AC0F074E4100}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:="ClickHereForHelp_DE.pdf").Select
ActiveSheet.Shapes("Object 411").IncrementLeft 638.5293700787
ActiveSheet.Shapes("Object 411").IncrementTop 12.2940944882
Range("A8:I12").Select
Dabei scheitert es dann natürlich am Object 411...
Hat jemand eine Idee, wie ich das machen kann ?
Für hilfreiche Tips wäre ich sehr dankbar, da meine VBA Kentnisse leider nicht ausreichend sind
und auch die Suche im Netzt hat mich nicht weiter gebracht.
Danke im Voraus
Gruß Oliver