VBA Excel

Computer: Software & Programmierung Visual Basic
#1

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

#2

Dieser Beitrag wurde von der Community gemeldet und ist vorübergehend ausgeblendet.

#3

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