Avatar billede folj Forsker
29. august 2007 - 21:24 Der er 10 kommentarer og
1 løsning

Link eller kommandoknap i diagram i Excel

Jeg har i et Excelark lavet nogle diagrammer som har hver sin fane. Der er 3 forskellige diagrammer for hvert hold (gange 6 hold) og det ser lidt uoverskueligt ud, især for hold 6 der skal scrolle langt til højre for at komme til deres faner.

Derfor vil jeg gerne lave nogle links i disse diagrammer, der kalder en funktion der skifter til den anden slags diagram for holdet.

Men er det slet ikke muligt at tilføje et link eller en kommandoknap i et diagram? Jeg har forsøgt via værktøjslinien Kontrolelementer, men selvom man skifter til design-visning, så får jeg ikke muligheden. Er der nogen der kender en løsning ?

Jeg venter spændt på Eksperten der har løsningen.
Avatar billede gider_ikke_mere Nybegynder
29. august 2007 - 21:42 #1
Hvis du dobbeltklikker på din CommandoButton i designvisning, kan du indsætte en kode a la Range("Z1").Select
Avatar billede gider_ikke_mere Nybegynder
29. august 2007 - 21:42 #2
Du kan også blot lave hyperlinks i arket til bestemte celler.
Avatar billede be_nice Juniormester
29. august 2007 - 21:43 #3
Hej folj,

Du kan bruge flg. metode:

Du skal have lavet en Userform med 1 Listbox og 3 Commandbuttons - herefter opretter du følgende

Sub DIN_MARKO()
    Load UserForm1
    UserForm1.Show 0
End Sub

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
Avatar billede be_nice Juniormester
29. august 2007 - 21:49 #4
Hej igen,

Ja, det gik lidt for hurtigt før - du skal jo også have koden til din Userform:

Dim normH
Dim miniH
Private Sub CommandButton1_Click()                  'ok
Dim arkNavn
    If Me.ListBox1.ListIndex <> -1 Then
        arkNavn = Me.ListBox1
        ActiveWorkbook.Sheets(arkNavn).Activate
    End If
End Sub
Private Sub CommandButton2_Click()                  'luk
    Unload UserForm1
End Sub
Private Sub CommandButton3_Click()                  'Minimer
    If Me.CommandButton3.Caption = "Minimer" Then
        Me.CommandButton3.Caption = "Gendan"
        Me.CommandButton3.Accelerator = "G"
        UserForm1.Height = miniH
    Else
        Me.CommandButton3.Caption = "Minimer"
        Me.CommandButton3.Accelerator = "M"
        UserForm1.Height = normH
    End If
End Sub
Private Sub ListBox1_Click()
    Me.CommandButton1.SetFocus
End Sub
Private Sub UserForm_activate()
    normH = UserForm1.Height
    miniH = 50
   
    For Each sh In ActiveWorkbook.Sheets
        Me.ListBox1.AddItem sh.Name
    Next sh
End Sub

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
Avatar billede folj Forsker
30. august 2007 - 08:00 #5
Det med at lave en userform er måske brugbart, selvom jeg ikke har de bedste erfaringer med userforms (har før været ude for at de er skyld i. at filen med tiden fejler, og har så måttet redde vore vigtige data over i en anden fil, og genskabe det hele der. Kendt problem hos Microsoft også, men der findes ingen løsning).

Hvis jeg skal kunne bruge userform til mit problem så skal jeg kunne aktivere userformen samtidigt med at jeg aktiverer diagrammet - noget i retning af...

Private Sub Chart_Activate()
    Load UserForm1
    UserForm1.Show
End Sub

vender tilbage når jeg har testet det lidt... foreløbigt tak
Avatar billede be_nice Juniormester
01. september 2007 - 21:30 #6
Hej igen,

Er spørgsmålet løst - eller har du brug for mere hjælp?

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
Avatar billede folj Forsker
03. september 2007 - 08:20 #7
Nej, men har bare brug for mere tid...
Er i gang med at afprøve flere mulige løsninger, inspireret af de forslag I er kommet med.

Jeg skal nok vende tilbage, når der er nyt, men det er ikke hver dag produktionen tillader at jeg sætter mig og nørkler med det...
Avatar billede be_nice Juniormester
03. september 2007 - 18:57 #8
Hej igen,

Helt ok - du tager bare den nødvendige tid.

Jeg har bare en idé om at følge lidt op på de tråde jeg involverer mig i - på den måde kan vi alle være med til at sikre et toptunet og brugbart miljø her på eksperten, med forhåbentligt gode tips og råd til nuværende og fremtidige brugere.

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
Avatar billede be_nice Juniormester
25. september 2007 - 21:10 #9
Hej igen,

Har du fundet en løsning, og kan spørgsmålet lukkes?

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
Avatar billede folj Forsker
25. september 2007 - 21:16 #10
Jeg har afprøvet forskellige løsninger, inspireret af forslagene fra be_nice.

I perioden med overvejelser og tests, har jeg dog set, at mine brugere har overvundet besværighederne med de mange faner med grafer, og mine løsningerne er lagt lidt på 'hylden' ind til videre.

Tak for indsatsen, og hvis I har mod på det, vil jeg gerne ha' hjælp til at forbedre mine diagrammer lidt. Se http://www.eksperten.dk/spm/798192.
Avatar billede be_nice Juniormester
25. september 2007 - 21:29 #11
Hej igen,

Tak for point - jeg dropper forbi dit andet spørgsmål senere.

Mvh.
Be_Nice
"Hver for sig kan vi alle en smule - men sammen kan vi det hele :o)"
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