MortenL Juniormester
18. maj 2020 - 12:27 Der er 5 kommentarer og
2 løsninger

Excel Visualisering

Hej

Jeg ønsker at visualiser nogen data.
Jeg vil gerne optegne en firkant, ud fra en højde og længde (eller x-y koordinator).
Ligeledes vil jeg gerne tegne en pil ind på samme visualisering, ud fra x-y koordinator.

Er det muligt?
Var ved at tænke på et x-y diagram, men kan ikke se hvordan man forbinder punkterne osv.
thomas_bk Professor
18. maj 2020 - 12:33 #1
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.
finb Ekspert
18. maj 2020 - 13:01 #2
I bundlinien skulle der gerne være et simpelt tegne-program...
jens48 Ekspert
18. maj 2020 - 14:43 #4
MortenL Juniormester
20. maj 2020 - 07:25 #5
Tak! Det er lige det jeg har brug for. Tak for hjælpen :)
MortenL Juniormester
26. maj 2020 - 12:51 #6
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?
jens48 Ekspert
26. maj 2020 - 14:39 #7
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
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Anne Marie Engtoft Larsen gør klar til at rejse til USA som Danmarks nye tech-ambassadør: "Jeg har glædet mig helt vildt"
Interview: Om få dage drager Anne Marie Engtoft Larsen til Silicon Valley, hvor hun indtager embedet som Danmarks nye tech-ambassadør. "Mit mandat bliver at at fokusere på, hvordan vi skaber handling," siger hun i sit første interview som Danmarks tech-ambassadør.
Computerworld
Ups!: Gammelt fjernsyn lagde internetforbindelsen ned i hel landsby i halvandet år
I halvandet år var en hel landsby i Wales plaget af elendig bredbåndsforbindelse, som begyndte hver dag klokken syv om morgenen. Teknikere kæmpede med at løse mysteriet, men lige meget hjalp det. Årsagen viste sig at være et brugt tv, som en af byens familier havde taget i brug.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Find den rette model til din organisation: Ny guide til outsourcing er fyldt med tips & tricks
Mængden af outsourcede it-opgaver er steget støt over de sidste 10 år. Det giver mening, for samtidig er kompleksitet og forretningens forventninger til hastighed også steget. Men outsourcing er også et strategisk valg. For skal du hyre direkte, gennem en leverandør eller skabe dit eget sourcingselskab? Og hvad er fordele - og ulemper ved hver model? Det får du en række konkrete bud på hvor 5 relationship modeller og 3 prismodeller gennemgås og evalueres.