ich arbeite an einem Berechnungssheet im A4 Format. Dabei habe ich viele Shapes (Formeln aus dem Editor in Textfeldern, ca. 150 Stück). Die Formeln werden mit Top Left mittels VBA ausgerichtet, wie hier zu sehen ist:
With Worksheets("Berechnung").Shapes("formula_L_4_1_3")
.Left = Range("formula_L_4_1_3_cell").Left
.Top = Range("formula_L_4_1_3_cell").Top + (Range("formula_L_4_1_3_cell").Height - Worksheets("Berechnung_
_").Shapes("formula_L_4_1_3").Height) / 2
End With
Ich arbeite mit Zellnamen, damit man die Berechnung wenn nötig einfach ändern kann, ohne den ganzen VBA-Code zu zerschießen.
Problem ist, wenn ich die Berechnung zu PDF exportiere verschieben sich einige Shapes (nicht alle und betrifft auch nur Textfelder) leicht nach unten.
Habe es mit "Speichern unter" als PDF speichern versucht und mit dem PDFCreator von PDFforge.
Hat jemand eine Idee woran das liegen könnte?
Schonmal vielen Dank und Gruß
Chris