Thema Datum  Von Nutzer Rating
Antwort
Rot Ende einer Linie ermitteln
02.09.2016 11:00:40 Georg
NotSolved
03.09.2016 00:08:09 Gast84500
NotSolved
04.09.2016 16:57:50 Georg
NotSolved
06.09.2016 09:09:43 Gast47583
NotSolved

Ansicht des Beitrags:
Von:
Georg
Datum:
02.09.2016 11:00:40
Views:
380
Rating: Antwort:
  Ja
Thema:
Ende einer Linie ermitteln

Ich möchte eine Linie zeichen und deren Endpunkte ermitteln, nachdem ich die Linie manuell verädert habe. Da jedoch nor die Ecken des Kastens ausgegeben werden, in dem sich die Linie befindet bekomme ich ein falsches Ergebnis, wenn ich von einer waagerechten Linie den rechten Endpunkt nach oben bewege. Der Code hierzu sieht wie folgt aus:

' Globale Variablen
Dim Masst   As Shape
Dim Kante_1 As Shape
Dim Kante_2 As Shape
Dim Masstna As String
Dim K1na As String
Dim K2na As String


Public Sub Grundlinien()
Dim Masstnr As Long
Dim K1nr As Long
Dim K2nr As Long
Dim x1 As Integer

Set Kante_1 = ActiveSheet.Shapes.AddLine(200, 300, 600, 300)
K1nr = s_index + 2
' MsgBox "Linie 1 =" & K1nr
K1na = ActiveSheet.Shapes(K1nr).name
ActiveSheet.Shapes.Range(Array(K1na)).Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(150, 0, 0)
        .Weight = 1.5
    End With


Set Kante_2 = ActiveSheet.Shapes.AddLine(300, 200, 300, 500)
K2nr = K1nr + 1
K2na = ActiveSheet.Shapes(K2nr).name
ActiveSheet.Shapes.Range(Array(K2na)).Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(150, 0, 0)
        .Weight = 1.5
    End With
End Sub


Public Sub Auswertung_1()

MsgBox "Punkt 1: " & Kante_1.Left & " / " & Kante_1.Top & vbCrLf & _
"Punkt 2: " & Kante_1.Left + Kante_1.Width & " / " & Kante_1.Top + Kante_1.Height

MsgBox "Punkt 1: " & Kante_2.Left & " / " & Kante_2.Top & vbCrLf & _
"Punkt 2: " & Kante_2.Left + Kante_2.Width & " / " & Kante_2.Top + Kante_2.Height

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Ende einer Linie ermitteln
02.09.2016 11:00:40 Georg
NotSolved
03.09.2016 00:08:09 Gast84500
NotSolved
04.09.2016 16:57:50 Georg
NotSolved
06.09.2016 09:09:43 Gast47583
NotSolved