kolombreedtes excel en word gelijk maken

[bernie6]

hallo

ik werk in excel met tabellen; de kolombreedte in excel wordt uitgedrukt in punten
ik koppel die tabellen aan een word document; in word wordt de breedte van kolommen in tabellen uitgedrukt in cm
nu wil ik identiek dezelfde breedte in word als in excel
ik zou dus willen dat ofwel excel mijn kolombreedte uitdrukt in centimeter ofwel dat word dit doet in punten

kan dit makkelijk?

met dank

bernie6

 

[gast0660]

Hoi bernie,
Met volgende vba code.
Klik één of meerdere kolommen en druk op het knopje om te testen. In het origineel beter het knopje weghalen en bij macro's op uitvoeren drukken.
Ik hoop dat het in het Engels mag, anders moet ik nog een en ander vertalen
Laat maar weten of het werkt voor jou.
In bijlage voorbeeldtje

Greetz

 

[jolivanes]

Is dit iets voor je?

http://www.exceltip.com/st/Set_row_...imeters_using_VBA_in_Microsoft_Excel/489.html

Die url werkt niet meer geloof ik.
Dit is het:

Sub SetColumnWidthMM(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 SetRowHeightMM(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

This example macro shows how you can set the row height for row 3 and the column width for column C to 3.5 cm:

Sub ChangeWidthAndHeight()
    SetColumnWidthMM 3, 35
    SetRowHeightMM 3, 35
End Sub

 

[bernie6]

bedankt beiden; het werkt perfect