Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: MPK-RT am Februar 02, 2016, 13:37:59 Nachmittag
-
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
-
Crossposting (http://www.excel-ist-sexy.de/forenhilfe/crossposting/) ohne gegenseitige Verweise ist einfach nur egoistisch und Mist!
-
Hallo,
und hier ein paar Links...
http://www.office-loesung.de/p/viewtopic.php?f=166&t=712199 (http://www.office-loesung.de/p/viewtopic.php?f=166&t=712199)
http://www.clever-excel-forum.de/Thread-PDF-als-Objekt-einfuegen-und-Icon-skalieren?pid=33027#pid33027 (http://www.clever-excel-forum.de/Thread-PDF-als-Objekt-einfuegen-und-Icon-skalieren?pid=33027#pid33027)
@MPK-RT: Crosspostings sind in der Regel in Foren unerwünscht. Manche erlauben auch das Crossposting,
dann aber unter der Bedingung die Beiträge zu verlinken. Denn, keiner der Helfer und Helferinnen möchte
die Arbeit doppelt machen.
Gruß
-
Hallo Maninweb und GMG-CC,
es tut mir leid, wenn ich euch dadurch verärgert habe.
Ich suche seit mehreren Tagen nach dem Problem in den verschiedensten Foren und erhoffte mir durch die "Streuung" eine sichere Antwort.
Wenn mir in einem der Foren geholfen werden kann, werde ich das in den anderen natürlich mitteilen.
Könnt ihr mir bei dem Problem helfen?
Grüße
Flo
-
Also nochmals entschuldigung.
Hier wird auch über das Thema gesprochen.
http://www.clever-excel-forum.de/Thread-PDF-als-Objekt-einfuegen-und-Icon-skalieren (http://www.clever-excel-forum.de/Thread-PDF-als-Objekt-einfuegen-und-Icon-skalieren)
Flo