Hallo zusammen,
ich habe einen Codierungstext der eine Codierung auf einem Worddokument vornimmt, allerdings am rechten Seitenrand. Nun soll das ganze aber oben rechts aufgeführt werden und nicht mehr waagerechte sondern senkrechte striche. Wie geht das?
ist:
_
_
_
soll:
|||
hier der Code:
Private Sub Linie1()
'Linie Einfügen, mit 1cm länge und auf höhe 9,3cm
ActiveDocument.Shapes.AddLine(CentimetersToPoints(20.1), CentimetersToPoints(9.3), CentimetersToPoints(21), CentimetersToPoints(9.3)).Select
Selection.ShapeRange.Line.Weight = (CentimetersToPoints(0.1))
Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=q
End Sub
Private Sub Linie2()
'Linie Einfügen, mit 1cm länge und auf höhe 8,88cm
ActiveDocument.Shapes.AddLine(CentimetersToPoints(20.1), CentimetersToPoints(8.88), CentimetersToPoints(21), CentimetersToPoints(8.88)).Select
Selection.ShapeRange.Line.Weight = (CentimetersToPoints(0.1))
Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=q
End Sub
(…)
Gruss
Sandra
ich habe einen Codierungstext der eine Codierung auf einem
Worddokument vornimmt, allerdings am rechten Seitenrand. Nun
soll das ganze aber oben rechts aufgeführt werden und nicht
mehr waagerechte sondern senkrechte striche. Wie geht das?
So, der Codierungstext (habe ich noch nie als Synonym für Quelltext oder Code gehört), den Du brauchst, könnte so aussehen:
Sub LinieZeichnen(ByVal x As Double, ByVal y As Double, ByVal Laenge As Double, ByVal Winkel As Double, ByVal Farbe As Long, ByVal Dicke As Single)
x = CentimetersToPoints(x)
y = CentimetersToPoints(y)
Laenge = CentimetersToPoints(Laenge)
Winkel = Winkel \* 3.14159265358979 / 180
With ActiveDocument.Shapes.AddLine(x, y, x + (Laenge \* Sin(Winkel)), y - (Laenge \* Cos(Winkel))).Line
.Weight = Dicke
.ForeColor.RGB = Farbe
.DashStyle = msoLineRoundDot
.Style = msoLineSingle
End With 'Line
End Sub 'LinieZeichnen
Sub TestLinie()
Dim x As Integer
For x = 1 To 3
LinieZeichnen x, 1, 5, 135, RGB(x \* 80, 0, 0), 6
Next x
End Sub 'TestLinie
Das ist natürlich nur eine von mehreren möglichen Lösungen. Sollte es für Dich nicht vollständig selbsterklärend sein, frag´ bitte nochmal nach.
Kristian