application.centimeterstopoints()

25/09/2007 - 19:54 von Michael Kugler | Report spam
Hallo NG,

Ich möchte ein rechteck zeichnen, dass auf dem 100% Ausdruck genau 8,95x7,5
cm groß ist. Dazu habe ich folgendes versucht.

Dim breite, hoehe As Double
breite = Application.CentimetersToPoints(8.95)
hoehe = Application.CentimetersToPoints(7.5)
ActiveSheet.Shapes.AddShape(msoShapeRectangle,10, 10, breite, hoehe).Select

Leider wird das Ergebnis nicht erreicht. Mache ich etwas falsch oder liegt
es am Druckertreiber o.à.?


Mit freundlichen Grüßen / Yours sincerely ,

Michael Kugler


Compunited
Inh.: Michael Kugler
Hasellohweg 19
90766 Fürth
Germany

Tel +49(911)1327142
Fax +49(911)1327143

Cell Phone +49(162)2656942
 

Lesen sie die antworten

#1 Alexander Wolff
25/09/2007 - 21:17 | Warnen spam
Die Tastatur von Michael Kugler wurde wie folgt gedrückt:
Ich möchte ein rechteck zeichnen, dass auf dem 100% Ausdruck genau
8,95x7,5 cm groß ist. Dazu habe ich folgendes versucht.

Dim breite, hoehe As Double
breite = Application.CentimetersToPoints(8.95)
hoehe = Application.CentimetersToPoints(7.5)
ActiveSheet.Shapes.AddShape(msoShapeRectangle,10, 10, breite,
hoehe).Select
Leider wird das Ergebnis nicht erreicht. Mache ich etwas falsch oder
liegt es am Druckertreiber o.à.?



Es liegt (auch) an Excel. Ein Zentimeter ist (bei mir)

36 Pixel breit und
39 Pixel hoch.

Genauer wird es sicherlich, wenn Du auf diese Weise 10 Zentimeter ausdruckst
und dadurch die richtige Zellgröße bspw. mit

359 Pixel breit und
391 Pixel hoch (Fantasiewerte) erhàltst.

Beweis: Drucke mal einen am Bildschirm einwandfreien Kreis aus. Der wirkt
auf Papier in der Höhe gestaucht, muss also für den Druck in der Höhe
gestreckt werden.

Eine Lösung für Dich könnte also lauten, entweder das Maß für die Höhe oder
die Breite um diese x % (8 < x < 13) zu korrigieren.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen