Zeile der nächsten freien Seite
01.08.2022 17:45:05
Nico
ich greife momentan mit einer Schnittstelle auf Excel zu und möchte daraus automatisiert ein PDF erzeugen.
Die ersten Seiten werden automatisiert mit Texten gefüllt und die Zeilenhöhe angepasst (Die Anzahl der Seiten und Zeilen ist also variabel).
Jetzt würde ich gerne am Ende der Texte einige Bilder einfügen, diese sind bereits so zugeschnitten das zwei Bilder auf eine Seite passen.
Damit dann die Bilder, beim Export als PDF, nicht geschnitten auf unterschiedlichen Seiten angezeigt werden, würde ich sie gerne auf der nächsten freien Seite einfügen.
Das heißt auf Seite 2 können noch ein paar Zeilen stehen und den Beginn der Seite 3 möchte ich herausfinden.
Jetzt entsteht zwischen der letzten Seite und der nächsten freien Seite ja kein Seitenumbruch mehr, also kommt man mit folgender Funktion auf kein Ergebnis:
Count = ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(Count).Location.Address
If x.EntireRow.PageBreak xlPageBreakNone Then
rN = x.row
Oder kann man alternativ ermitteln ob ein eingefügtes Bild auf eine Seite passt?
Hoffe ich habe das gut genug erklärt. :)
MfG
Nico