Avatar billede annacondaknud Nybegynder
23. januar 2007 - 12:50 Der er 1 kommentar og
1 løsning

diagram, afgrændset diagram til plotning

hej alle..

jeg har en opgave, som er ved at rive grå hår ud af hovedet på mig.

Jeg skal bruge et diagram med X og Y akse. kun to akser. det skal gå fra nogen bestemte talværdiger, både på x- og y-aksen jeg har fået lavet det, så der er de værdiger som jeg nu skal bruge. Problemet er så at jeg f. eks. har en x-akse der går fra 72,2-78,25 og en y-akse der går fra 1000-1670
Det skal være lige præcis de tal.

men så er der et område af diagrammet som jeg gerne vil have væk. Det er det ene hjørne. f.eks. skal kordinatet: (72,2;1500) ikke kunne vises. der skal gå en skrå line ca fra kordinatet (72,2;1280) til (73,4;1670) Det venstre hjørne der bliver mellem de to punkter, vil jeg gerne have væk i diagrammet, hvis det kan lade sig gøre. eller også skal det være sån at de data der måtte dukke om i det område ikke bliver vist, eller skjules.

Det hele skal bruges til noget vægt beregning med moment arm og sån noget.

Så diagrammet er indenfor hvad der kan bruges og data som eventuelt kommer udenfor ikke kan vises.

Er der nogen som kan jeg hjælpe mig. jeg kan godt prøve at forklarer mig lidt bedre, men det er lidt svært.
Avatar billede supertekst Ekspert
25. januar 2007 - 10:00 #1
Har du mulighed for at sende en kopi af filen til: pb@supertekst-it.dk - så vil jeg gerne se på problemet.
Avatar billede supertekst Ekspert
30. januar 2007 - 10:15 #2
Dim B8Værdi, D8Værdi
Public Sub TestÆndring()
Rem Ved ændring af værdier testes værdierne af B8 & D8
    B8Værdi = Range("B8").Value
    D8Værdi = Range("D8").Value
 
    If (B8Værdi >= 1280 And B8Værdi <= 1670) And _
        (D8Værdi >= 72.2 And D8Værdi <= 73.4) Then
Rem Eliminer det viste PUNKT i diagrammet
        skjulPunkt
    Else
        visPunkt
    End If
   
Rem Opdater visning af diagram
    ActiveChart.ChartArea.Select
End Sub
Private Sub skjulPunkt()
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
End Sub
Private Sub visPunkt()
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlAutomatic
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
End Sub
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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