kan excel lave en vinkel

muligvis, men jeg får ikke tid til at kigge på det før weekenden.

Er der ikke noget med at Excel bruger radians og ikke grader?
Bare lige til info.

Prøv at se http://mathexcel.site.voila.fr/Trigono/angle.xls

lunddata: det ser flot ud.... men jeg fatter intet af det, desværre.

Følgende makro tegner en vinkel.

Sub Macro1()
    ActiveSheet.Shapes.AddLine(100, 200, 400, 200).Select
    ActiveSheet.Shapes.AddLine(100, 200, 400, 100).Select
End Sub

expression.AddLine(BeginX, Beginy, EndX, EndY)

Med lidt matematik kan man vel regne ud hvor enderne af strgerne skal ende, for at tegne den rigtige vinkel.

Jeg kan se jeg har rodet mig ud i et spørgsmål, der for mig sikkert ikke bliver let at løse..... Jeg er i hvertfald nødt til at vente med forsøget til jeg har god tid. Det bliver her iløbet af juleferien.

Her er noget du kan arbejde videre på.
Beregningen af xy koordinaterne mangler. Der skal du nok ha hjælp af en anden.

Sub Tegn()
  ' Tegner og navngiver scrollbar, cirkel og streger
  ' Skal selvfølgelig kun bruges en gang
  Dim OLE As OLEObject
  ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 400, 400).Select
  Selection.Name = "Cirkel"
  ActiveSheet.Shapes.AddLine(300, 300, 300, 100).Select
  Selection.Name = "SortLinje"
  Selection.ShapeRange.Line.ForeColor.SchemeColor = 0
  ActiveSheet.Shapes.AddLine(300, 300, 300, 100).Select
  Selection.Name = "BlaaLinje"
  Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
  Set OLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ScrollBar.1", _
            Left:=200, Top:=50, Width:=200, Height:=20)
  With OLE
  .Object.Min = 0
  .Object.Max = 360
  .Name = "ScrollBar"
  End With
End Sub

Private Sub ScrollBar_Change()
  ' Tegner en ny blå streg med den rigtige vinkel
  ' hver gang scrollbaren ændres
  Dim Vinkel As Long
  Dim ex As Long
  Dim ey As Long
  Vinkel = Me.ScrollBar
 
 
  '**********************************************
  ' Select case skal udskiftes med et regnestykke
  ' der beregner xy korordinaterne

  Select Case Vinkel
    Case 315 To 45
      ex = 300
      ey = 100
    Case 45 To 135
      ex = 500
      ey = 300
    Case 135 To 225
      ex = 300
      ey = 500
    Case 225 To 315
      ex = 100
      ey = 300
  End Select

  '***********************************************

  ActiveSheet.Shapes("BlaaLinje").Delete
  ActiveSheet.Shapes.AddLine(300, 300, ex, ey).Select
  Selection.Name = "BlaaLinje"
  Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
End Sub

Så er koden tilpasset.

Private Sub ScrollBar_Change()
  ' Tegner en ny blå streg med den rigtige vinkel
  Const Pi As Variant = 3.14159265358979
  Dim ex As Variant
  Dim ey As Variant
  ex = Sin(Me.ScrollBar * (Pi / 180)) * 200 + 300
  ey = Cos((180 - Me.ScrollBar) * (Pi / 180)) * 200 + 300
  ActiveSheet.Shapes("BlaaLinje").Delete
  ActiveSheet.Shapes.AddLine(300, 300, ex, ey).Select
  Selection.Name = "BlaaLinje"
  Selection.ShapeRange.Line.ForeColor.SchemeColor = 12
End Sub

Det ser du godt nok indviklet ud - hvad er det lige jeg skal gøre nu???

Det ser "sgu" godt nok indviklet ud - hvad er det lige jeg skal gøre nu???

Har du styr på at kopiere koden over i Excel?

Sub Tegn() skal kun bruges en gang, til at tegne en cirkel en scrollbar og et par streger.

Sub ScrollBar_Change tegner en ny streg hver gang scrollbaren ændres.

Jeg ved ikke om det er noget du kan bruge, men det viser hvordan man kan tegne vinkler i Excel.

Du kan også downloade en færdig Excel fil her.

http://peecee.dk/?id=86737

epimetheus. Læg et svar så er pointene dine - jeg må dog indrømme at jeg ikke er kommet videre med opgaven. Er ikke sikker på jeg kan og har ikke tid til at forsøge lige for tiden. Men har nu noget at gå videre med på et senere tidspunkt.

epimetheus --> Må jeg have lov at rose din løsning, simple og effektiv. Der er dog en enkel fejl, i din download fil, cirkelen er forskudt i forhold til vinkelen. (men det passer dog, hvis man sletter cirkelen og kører tegn igen). Det var bare til orientering :o)

Jeg har forsøgt med vinkler i trekant. Se http://www.sysform.dk/Test/Vinkleritrekant.xls

Tak for ros.

Behold bare dine point, jeg samler ikke på dem :-)

Det med forskydningen er cirklen er vist en lokal fejl. Jeg har ikke fejlen her hos mig.

Det gør jeg heller ikke :o)  - Tak alligevel.

Okay, så er jeg nødt til at lukke uden at "betale" point for det.