Office: (Office 2010) PDF als Objekt einfügen und Icon skalieren

Hallo zusammen,

Ich versuche zur Zeit ein Makro zu basteln, mit dem ich ein Objekt (pdf etc.) als Icon einbinden kann und sich dieses dynamisch an die Zellengröße anpasst. Leicht gedacht, schwer umgesetzt. Ich komm leider keinen Schritt weiter. Das einfügen des Objektes als Icon ist kein Problem, jedoch gestaltet sich die Umsetzung des automatischen Skalierens des Icons an die Zellenhöhe für mich als unlösbar.

Ich hoffe ihr könnt mir weiterhelfen.

Hier ist noch der aktuelle Code:

Code:

Sub Objekt_einfügen()
'Makro Objekt einfügen


'Gewünschte Zelle auswählen

On Error GoTo MyErrHndl
  Dim myQ As Range, myC As Range
Dim myTarget As Range
Dim stRow As Integer, endRow As Integer
stRow = Selection.Row
endRow = 1
Set myQ = Selection
Set myTarget = Application.InputBox("An welcher Stelle Soll das Bild eingefügt werden ?", "Zielzelle wählen", Type:=8)
If Not myTarget Is Nothing Then
    For Each myC In myQ
        If myC.Row > endRow Then
            endRow = myC.Row
        End If
    Next

myTarget.Select

'Objekt einfügen


    Set Object = ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.7", Link:=False, _
        DisplayAsIcon:=True, IconFileName:= _
       "C:\Windows\Installer\{AC76BA86-7AD7-FFFF-7B44-AA0000000001}\PDFFile_8.ico", _
        IconIndex:=0, IconLabel:="Adobe Acrobat Document").Activate
    With Object
        .Height = myTarget.Height * tmpHeight
        .Width = myTarget.Width * tmpWidth
        .Top = myTarget.Top
        .Left = myTarget.Left
        .Placement = xlMoveAndSize
    End With
    Set Object = Nothing
    
    
     End If
MyErrHndl:

End Sub

Danke im Voraus!

Gruß,

Flo

 

Es tut mir leid, habe "Crossposting" betrieben und die Beiträge nicht verlinkt.

Hier wird auch über das Thema gesprochen.
http://www.clever-excel-forum.de/Thread-PDF-als-Objekt-einfuegen-und-Icon-skalieren

Grüße
Flo

 

hallo, die wievielte wahl ist denn dieses forum..?