Angiv højde og bredde i mm

Nej.

Det er ringe.. hehe

Ja, måske - men sådan er det altså. Du må slev ud i et regnestykke for at finde ud af det.

Højde i punkter/72*2,54.

Fsv angår bredden kan du omregne pixels til mm, jeg kan bare ikke liger huske nogen formel for det.

Det her kan måske bruges, men bemærk at dette kun er nøjagtigt for skærmens vedkommende. Printere er noget helt andet :-)

Sub SizeCell(Cell As Range, h_cm, b_cm)
Cell.Columns.ColumnWidth = 5.1579 * b_cm
Cell.Rows.RowHeight = 72 * h_cm / 2.54
End Sub


Sub testsizecell()
SizeCell Range("a1"), 4, 9
End Sub