Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einbetten von PDFs mit fixer Größe

Forumthread: Einbetten von PDFs mit fixer Größe

Einbetten von PDFs mit fixer Größe
07.02.2018 21:04:04
PDFs
Guten Abend zusammen,
ich möchte folgendes per Makro lösen.
Das einbetten einer PDF Datei als /Objekt in eine vorhandene Vorlage.
Diese PDF muss jedoch in fixer Größe und in fixer Zelle hinzugefügt werden.
Wenn ich einfach ein Makro erstelle, indem ich eine PDF einbette, packt Excel mir diese neben den Arbeitsbereich, zudem auch noch zu klein. Ist sowas zu realisieren? Ich bin noch recht neu in Sachen Makro, und das ist für mich wie das Lernen einer neuen Sprache.
Ich hoffe, mir kann jemand weiterhelfen. Falls noch Infos benötigt werden, trage ich diese nach. Die Excelversion ist die aktuelle 2016er Version.
LG - Uwe
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einbetten von PDFs mit fixer Größe
08.02.2018 16:12:21
PDFs
Hi Uwe
Vielleicht so:
Sub t()
Call PDFEinfuegen(Range("C2"), 50, 100)
End Sub


Private Sub PDFEinfuegen(rng As Range, breit As Integer, hoch As Integer)
Dim strDatei As Variant
strDatei = Application.GetOpenFilename(FileFilter:="PDF Datei (*.pdf),*.pdf", _
Title:="Datei auswählen")
If strDatei = False Then Exit Sub
ActiveSheet.OLEObjects.Add(Filename:=strDatei, Link:=False, DisplayAsIcon:=False, _
Left:=rng.Left, Top:=rng.Top, Width:=breit, Height:=hoch).Activate
End Sub

C2 ist die Zelle links oben, dann die Werte für Breite und Höhe.
cu
Chris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige