VBA Spaltenbreite, Zeilenhöhe in Pixel

Hallo zusammen,

habe eine Problem das ich nicht hinbekomme ich möchte im VBA Code die Zeilenhöhe und die Spaltenbreite in Pixel angeben, und habe es mit folgendem Code probiert.....
With ws
.Columns(1).ColumnWidth = pixelToPt * 160
.Columns(2).ColumnWidth = pixelToPt * 86
.Columns(4).ColumnWidth = pixelToPt * 86
.Columns(6).ColumnWidth = pixelToPt * 86
.Columns(8).ColumnWidth = pixelToPt * 86
.Columns(10).ColumnWidth = pixelToPt * 86
.Columns(12).ColumnWidth = pixelToPt * 86
.Columns(3).ColumnWidth = pixelToPt * 30
.Columns(5).ColumnWidth = pixelToPt * 30
.Columns(7).ColumnWidth = pixelToPt * 30
.Columns(9).ColumnWidth = pixelToPt * 30
.Columns(11).ColumnWidth = pixelToPt * 30
.Columns(13).ColumnWidth = pixelToPt * 30
.Columns("N:V").ColumnWidth = pixelToPt * 30
.Columns("W:W").ColumnWidth = pixelToPt * 30
.Columns("W").ColumnWidth = pixelToPt * 141
End With

aber da bekomme immer "Laufzeitfehler 1004" Die ColumnWidth-Eingenschaft des Range-Objektes kann nicht festgelegt werden.

Bin für jede Hilfe dankbar

Grüße an alle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sp() Dim ws As Worksheet Dim pixelToPt As Double Set ws = ActiveWorkbook.Worksheets(1) pixelToPt = 0.75 With ws .Columns(1).ColumnWidth = pixelToPt * 160 .Columns(2).ColumnWidth = pixelToPt * 86 .Columns(4).ColumnWidth = pixelToPt * 86 .Columns(6).ColumnWidth = pixelToPt * 86 .Columns(8).ColumnWidth = pixelToPt * 86 .Columns(10).ColumnWidth = pixelToPt * 86 .Columns(12).ColumnWidth = pixelToPt * 86 .Columns(3).ColumnWidth = pixelToPt * 30 .Columns(5).ColumnWidth = pixelToPt * 30 .Columns(7).ColumnWidth = pixelToPt * 30 .Columns(9).ColumnWidth = pixelToPt * 30 .Columns(11).ColumnWidth = pixelToPt * 30 .Columns(13).ColumnWidth = pixelToPt * 30 .Columns("N:V").ColumnWidth = pixelToPt * 30 .Columns("W:W").ColumnWidth = pixelToPt * 30 .Columns("W").ColumnWidth = pixelToPt * 141 End With End Sub

Sub SP() Const PixelToPt As Double = 0.75 Dim c As Long With ActiveWorkbook.Worksheets(1) .Columns("A").ColumnWidth = PixelToPt * 160 .Columns("C:V").ColumnWidth = PixelToPt * 30 For c = 2 To 12 Step 2 .Columns(c).ColumnWidth = PixelToPt * 86 Next .Columns("W").ColumnWidth = PixelToPt * 141 End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA Spaltenbreite, Zeilenhöhe in Pixel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

65 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Spaltenbreite, Zeilenhöhe in Pixel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

65 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread