Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Also nochmals entschuldigung.

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

Flo

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:
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