Excel Visualisering

Efter min bedste viden er det ikke noget excel understøtter.

Der skal du givetvis over i noget matematik software eller google om der kan købes et add-in til excel.

I bundlinien skulle der gerne være et simpelt tegne-program...

https://www.dropbox.com/scl/fi/jce5tfp049wlfmr6tfb4l/Firkant.xlsx?dl=0&rlkey=n3v1krtwr5kqz3nzlzje5jmbm

Er det noget i denne stil du er ude efter?

https://www.dropbox.com/scl/fi/0ln30e10m9kj2ctpthszh/Firkant.xlsm?dl=0&rlkey=drjuvpd4b3bv6q3ewck02o9im

Tak! Det er lige det jeg har brug for. Tak for hjælpen :)

jens48

Går videre med dit forslag :)
Er det muligt at ændre tykkelse/farve på linjerne?
Samt kan man tilføje en tekst i et x.y punkt?

Prøv at erstatte den eksisterende makro med denne:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C7")) Is Nothing Then
Dim S, O, H, L, X, Y As Long

S = 60 'bestemmer tegningens størrelse
O = 50 'bestemmer position af øverste streg
H = Cells(4, 3)
L = Cells(5, 3)
X = Cells(6, 3)
Y = Cells(7, 3)
Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
    If Shp.Type <> msoFormControl Then Shp.Delete
Next Shp

With Shapes.AddLine(300, O, 300 + L, O).Line
.Weight = 2
.ForeColor.RGB = RGB(50, 0, 128)
End With

With Shapes.AddLine(300, O, 300, H + O).Line
.Weight = 2
.ForeColor.RGB = RGB(50, 0, 128)
End With

With Shapes.AddLine(300 + L, O, 300 + L, H + O).Line
.Weight = 2
.ForeColor.RGB = RGB(50, 0, 128)
End With

With Shapes.AddLine(300, H + O, 300 + L, H + O).Line
.Weight = 2
.ForeColor.RGB = RGB(50, 0, 128)
End With

With Shapes.AddLine(300, O + H, 300 + X, O + H - Y).Line
.Weight = 2
.EndArrowheadStyle = msoArrowheadTriangle
.ForeColor.RGB = RGB(255, 0, 0)
End With
Shapes.AddTextbox(msoTextOrientationHorizontal, _
    300 + X, O + H - Y, 90, 20) _
    .TextFrame.Characters.Text = "x= " & X & ",  Y= " & Y

ActiveCell.Select
End If
End Sub