Nøjagtig firkant

Hmmm, korrektur:

Jeg har behov .....

1px = 0,04 cm (0,4 mm) ifølje photoshop

Sorry ... det kan du ikke regne med ... det er tilsyneladende forskeligt fra program til program :(

I mit Excel (XP) regner den da med cm.

Lav en tilfældig firkant. Dobbeltklik på den, og vælg fanbladet "size".

Sorry, kører Excel 97 ... :-(

Hvad med phatlasse laver firkanten og sender arket til dig .... måske ikke den mest originale løsning :o)

Som jeg nævnet i spørgsmålet er det en celle, som skal være 6x6 cm.
Chewie> Tror ikke det gælder for Excel. Antal pixels i højden og bredden er forskellige, så vidt jeg kan se.
En pixel er meget breddere end den er høj.

Hvis du goer det fra kode skal du benytte twips istedet for pixels.
1 tomme = 1440 twips
1 cm ~ 567 twips

Ved ikke om det hjaelper, men Excels standard-bredde i programmet er ikke pixels men det gennemsnitlige antal numre 0-9 der kan staa i cellen

Jeg har en kode liggende, som klarer problemet nogenlunde, men kun på skærmen.
Udskrevet bliver resultatet anderledes. Jeg skal bruge det på papir .....

Ifølge min kode giver det 31,71 punkter i bredden og 169,5 punkter i højden.
Det giver også en kvadrat på skærmen, dog ikke helte 6x6 cm (afhænger vel af skærmopløsningen), men udskrevet er den ca. 6,35 x 6,15.

Denne kode kan lave celler 6*6, men det er svært at få udskriften til at passe, da dette er afhængig af printerens opløsning.
(har dog set noget ved MS, men kan ikke lige finde det igen)

Private 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 Selection, 6, 6
End Sub

Den kode jeg har liggende, og som altså giver et kvadrat på skærmen, ser sådan ud:

Sub SætKolonneBreddeMM(ColNo As Long, mmWidth As Integer)
' changes the column width to mmWidth
Dim w As Single
    If ColNo < 1 Or ColNo > 255 Then Exit Sub
    Application.ScreenUpdating = False
    w = Application.CentimetersToPoints(mmWidth / 10)
    While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w
        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1
    Wend
    While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w
        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1
    Wend
End Sub


Sub SætRækkeHøjdeMM(RowNo As Long, mmHeight As Integer)
' changes the row height to mmHeight
    If RowNo < 1 Or RowNo > 65536 Then Exit Sub
    Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)
End Sub

Sub SætBreddeogHøjde()
    SætKolonneBreddeMM 7, 60
    SætRækkeHøjdeMM 5, 60
End Sub

En nødløsning kunne være at lave f.eks en tekstboks og angive den til 6x6 cm, og derefter rette cellen til samme størrelse. Så kan man aflæse rækkehøjde/kolonnebredde.

Det kan selvfølgelig ligge i printerens opløsning, men det burde vel ikke variere ret meget fra printer til printer.

Ser ud til, at jeg bliver nødt til, at prøve mig frem - evt. v.h.a. interpolation.

s_h_m> Har jeg prøvet. Gav en "kvadrat" på papiret på 6,3 x 6,2 cm :-(

Så er eksperimenterne forbi.

Konklussion:
For at få udskrivet en celle-kvadrat i Excel 97 på en HP Laser Jet 5Si skal bredden stilles til 30,14 punkter og højden til 165,75.

Havde håbet på, at nogen havde set MS eller andre skrive noget om problemet, men tak for deltagelsen.

Det er da godt du kunne eksperimentere dig frem.
Jeg har testet på en deskjet og jo bedre opløsning jeg brugte, jo tættere kom jeg på 6 * 6.  :-)    (31*169,5)

Hvis nogen senere skulle få samme problem kan vi jo henvise til dette spørgsmål og konkludere, at der ca. går

28 punkter på en centimeter i højden og
5 punkter på en centimeter i bredden, men

at det afhænger at opløsningen på den printer man bruger :-)