02.02.2016, 13:35
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:
Danke im Voraus!
Gruß,
Flo
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 SubDanke im Voraus!
Gruß,
Flo