Set Zeilenhöhe und Spaltenbreite in Millimetern mit VBA in Microsoft Excel
Zeilenhöhe und Spaltenbreite in Millimetern einstellen
Mit den folgenden Makros können Sie Zeilenhöhen und Spaltenbreiten mithilfe von Millimetern als Maßstab festlegen:
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
Dieses Beispielmakro zeigt, wie Sie die Zeilenhöhe für Zeile 3 und die Spaltenbreite für Spalte C auf 3,5 cm einstellen können:
Sub ChangeWidthAndHeight() SetColumnWidthMM 3, 35 SetRowHeightMM 3, 35 End Sub