Falzmarken innerhalb des linken Seitenrandes
21.09.2015 08:02:58
Matthias
mit nachfolgendem Code (im Modul) kann ich ganz einfach Falzmarken in Excel erstellen.
Jedoch sind diese Falzmarken immer in Spalte A.
Ich möchte die Falzmarken aber innerhalb des linken Seitenrandes haben.
Ich könnte schon den Seitenrand vermindert und einfach erst in Spalte C mit dem Text anfangen aber ich möchte nicht meine Dokumente alle umstellen wollen.
Ist es möglich das Modul so anzupassen, dass die Falzmarken innerhalb des linken Seitenrandes gesetzt werden?
Option Explicit
Const SC As Long = 0
Const LW As Double = 1.43
' von ManuelM
Sub Falzmarken()
Dim t As Double, s As Byte, tm As Double, Sh As Shape
For Each Sh In ActiveSheet.Shapes
With Sh
If .Type = 9 And .Line.Weight = LW And _
.Line.ForeColor.SchemeColor = SC Then
.Delete
End If
End With
Next
tm = ActiveSheet.PageSetup.TopMargin
t = 281 - tm
For s = 1 To 2
Set Sh = ActiveSheet.Shapes.AddLine(0, t, 24, t)
With Sh
.Line.Weight = LW
.Line.DashStyle = 1
.Line.Style = 1
.Line.ForeColor.SchemeColor = SC
.Placement = 3
End With
t = t + 281
Next
End
Sub
Gruß
Danke