OLEObjekt zuschneiden
07.05.2022 22:50:42
Marc
ich habe mit dem Makro-Rekorder den folgenden Code erzeugt um PDF´s in ein Worksheet einzubetten.
Allerdings weiß ich nun nicht wie ich die Größe des Rahmens anpassen kann, so dass die Größe des PDF-Icon gleich bleibt, und die Form des Rahmens der Größe des PDF-Icons angepasst wird.
Welche Methode oder Eigenschaft muss ich dafür verwenden?
VG,
Marc
Sub Makro1()
Dim objShape As Shape, i As Integer, Zeile As Long, Spalte As Long
Zeile = 1
Spalte = 9
Set Zelle = Cells(Zeile, Spalte)
Zelle.Select
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Users\marc\Desktop\TestPDF.pdf" _
, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-1031-1033-7760-BC15014EA700}\_PDFFile.ico", _
IconIndex:=0, IconLabel:="").Select
i = ActiveSheet.Shapes.Count
ActiveSheet.Shapes.Range(i).Select
Selection.Width = Application.CentimetersToPoints(1)
Selection.Height = Application.CentimetersToPoints(1)
End Sub
Anzeige