Avatar billede Jadl_2990 Juniormester
13. januar 2015 - 18:35 Der er 2 kommentarer og
1 løsning

Skjul / vis figur

Hvordan kan man få vist en figur som funktion af et valg i en celle?

Jeg har tidligere fået hjælp af Excelent til at rotere en pil som funktion af en værdi i en celle. Den så således ud:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("I15")) Is Nothing Then Exit Sub
    ActiveSheet.Shapes.Range(Array("pil")).Select
    Selection.ShapeRange.Rotation = Range("I15").value
    Range("I15").Select
End Sub

Den virker fint!

Nu kunne jeg godt tænke mig at vise to figurer ("Gate1") og ("Gate2"), hvis man vælger Ja i K6 (for Gate1) og Ja i N6 (for Gate2), som er to lister med Ja / Nej.
De skal både vises på det Ark hvor Ja/nej vælges, SAMT på Ark2

Gate1 og Gate2 skal kunne valges til eller fra uafhængigt af hinanden.

Da hver figur består a flere små figurer er de grupperet til én og navgivet til Gate1 og Gate2. Er det er et problem?
Avatar billede jens48 Ekspert
13. januar 2015 - 19:22 #1
Prøv med denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K6,N6")) Is Nothing Then
    If Range("K6") = "Ja" Then
      ActiveSheet.Shapes("Gate1").Visible = True
      Sheets("Ark2").Select
      ActiveSheet.Shapes("Gate1").Visible = True
      Sheets("Ark1").Select
    Else
      ActiveSheet.Shapes("Gate1").Visible = False
      Sheets("Ark2").Select
      ActiveSheet.Shapes("Gate1").Visible = False
      Sheets("Ark1").Select
    End If
    If Range("N6") = "Ja" Then
      ActiveSheet.Shapes("Gate2").Visible = True
      Sheets("Ark2").Select
      ActiveSheet.Shapes("Gate2").Visible = True
      Sheets("Ark1").Select
    Else
      ActiveSheet.Shapes("Gate2").Visible = False
      Sheets("Ark2").Select
      ActiveSheet.Shapes("Gate2").Visible = False
      Sheets("Ark1").Select
    End If
End If
End Sub
Avatar billede Jadl_2990 Juniormester
19. januar 2015 - 09:18 #2
Hej Jens48
Det virkede efter hensigten.
Smid lige et svar for point.

Det er tydeligt at Excel ikke er det bedste grafik program.
Det virker fint med at navngive en gruppe af figurer og så få figuren vist eller slettet.
Det er en fordel at holde grafik på et ark og indtastninger på et andet, da grafikke flytter sig hvis man indsætter en række.

Når jeg er færdig med "projektet" lægger jeg et link til filen.
Avatar billede jens48 Ekspert
19. januar 2015 - 09:40 #3
Et svar
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