Dynamisk fjernelse af serienavn på graf

Hvís du skjuler den kolonne som indeholder aktuel serie, så fjernes denne fra grafen

Dette kan gøres manuelt eller via kode
Men der er en 3 mulighed nemlig "Data" > "Grupper og Disposition"
prøv leg lidt med den.

Vælger du alligevel en makro, så sig til.

Og det er naturligvis kolonnerne som kildedata refererer til
i dit eks. E,F og G

Kigger jeg da straks på :)

Super fed finte - når det er implementeret så kommer dine points - hehe. Ej bare smid svar, så flyver point'erne din vej :)

Eller inden du gør det, hvordan ville du kreere en makro, der tjekker for dette - tror lige jeg blev for ivrig :/

Følgende 3 koder skal ind i hver sit afkrydsnings modul
og så skal du nok lige formatere grafen til at bevare størrelse

Sub Afkrydsningsfelt2_Klik()
If [B3] = True Then Columns(5).EntireColumn.Hidden = False
If [B3] = False Then Columns(5).EntireColumn.Hidden = True
End Sub
Sub Afkrydsningsfelt3_Klik()
If [C3] = True Then Columns(6).EntireColumn.Hidden = False
If [C3] = False Then Columns(6).EntireColumn.Hidden = True
End Sub
Sub Afkrydsningsfelt4_Klik()
If [D3] = True Then Columns(7).EntireColumn.Hidden = False
If [D3] = False Then Columns(7).EntireColumn.Hidden = True
End Sub

D.v.s indsæt koderne i et alm modul
Højreklik på afkrydsningsfelterne efter tur og vælg "Tildel makro"

Det var slf. en smart måde, at komme omkring problemet på, men sagen er den, at grafen og tjeckboxene bliver dynamisk genereret efter valg af input (fra userform). - så hvis det skal virke, skal det være lidt mere dynamisk end her lagt op til :/

Hvis man nu laver en makro, der overvåger "sand/falsk" cellerne - så kan man vel blot sætte den til at skjule kolonnen, hvis den bliver sat til falsk.

Så mit spørgsmål er måske et helt nyt spørgsmål, hvordan laver man en overvåger makro?

Kan der genereres flere Checkboxe end de 3 i dit eks-ark ?

I arket kommer der althængig af bruger om til 100 checkboxe (kun en serie - vises som start på graf området - derpå kan de aktuelle grafer klikkes på). Vores tradere synes det er hammer smart, at de lige kan tjekke korrelation på forskellige valuta, blot ved at klikke lidt på nogle checkboxe.

Da arket er lavet 100% dynamisk, laver den antallet af checkboxe i forhold til antallet af serier valgt af bruger. - faktisk blevet ret lækkert. Men de skal kunne bruge print til kunder osv, og så holder det ikke at, den udskriver serienavnene :/

ok prøv denne :

http://pmexcelent.dk/CheckBox.xls

Nej hvor perfekt - jeg vil lege lidt videre med det i morgen - men indtil videre er du point værdig :)

ok

Så fik jeg lige kigget på det igen - dette blev løsningen (pt. tilpasset tilsendt ark) - det endte med at jeg brugte din første løsning (uden egentligt at tænke over det)

Sub AddMakroToAllShapes()
    Dim sShapes As Shape
   
        'Loop through all shapes on Worksheet
        For Each sShapes In Sheets("Chart By Check Box").Shapes
            With sShapes
                If UCase(Left(.Name, 5)) = "CHECK" Then
                    .OnAction = "HideShowColumns"
                End If
            End With
        Next sShapes

End Sub

Sub HideShowColumns()

    i = 1
    Do Until Range("A1").Cells(3, 1 + i) = ""
        If Range("A1").Cells(3, 1 + i) = False Then
            Columns(4 + i).EntireColumn.Hidden = True
        Else: Columns(4 + i).EntireColumn.Hidden = False
        End If
    i = i + 1
    Loop
   
End Sub

Så fik jeg tilført den dynamik jeg søgte :)