Foto's zichtbaar maken via knoppen

[Perlut]

Hallo,

Ik zou graag een Excel maken dat:

Bij opstarten zijn alle afbeeldingen niet zichtbaar.
Bij kilikken op de bvb knop "Paard" zou de afbeelding "paard" zichtbaar moeten zijn.
Bij kilikken op de knop "Vos" zou de afbeelding "Vos" zichtbaar moeten zijn.
Bij klikken op alles weg zou alles terug onzichtbaar moeten zijn.

Is dit mogelijk met Excel?Bekijk bijlage JuisteBeeldZoeken.xlsx



Als ik 1 voorbeeld heb probeer ik het zelf verder uit te zoeken

 

[edmoor]

Zet dit achter Blad1 en sla dan het document op als document met macro's (.xlsm):

Sub Schuinerand1_Klikken() 'Vis
    ToggleVisible ("Afbeelding 8")
End Sub

Sub Schuinerand2_Klikken() 'Koe
    ToggleVisible ("Afbeelding 9")
End Sub

Sub Schuinerand3_Klikken() 'Paard
    ToggleVisible ("Afbeelding 10")
End Sub

Sub Schuinerand4_Klikken() 'Kip
    ToggleVisible ("Afbeelding 11")
End Sub

Sub Schuinerand5_Klikken() 'Vogel
    ToggleVisible ("Afbeelding 12")
End Sub

Sub Schuinerand6_Klikken() 'Vos
    ToggleVisible ("Afbeelding 13")
End Sub

Sub Schuinerand7_Klikken() 'Vlinder
    ToggleVisible ("Afbeelding 14")
End Sub

Sub ToggleVisible(Afb As String) 'Zichtbaar / Onzichtbaar
    ActiveSheet.Shapes(Afb).Visible = Not ActiveSheet.Shapes(Afb).Visible
End Sub

Sub Schuinerand15_Klikken() 'Alles weg
    Dim i As Integer
    For i = 8 To 14
        ActiveSheet.Shapes("Afbeelding " & i).Visible = False
    Next i
End Sub

En in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    Dim i As Integer
    For i = 8 To 14
        Sheets("Blad1").Shapes("Afbeelding " & i).Visible = False
    Next i
End Sub

Tip:
Als je objecten op je werkblad aanmaakt, voorzie deze dan direct van een juiste en logische naam.
Dat kan je doen in het naamvak van Excel.

 

[snb]

1 macro lijkt me voldoende:

Sub M_snb()
    Shapes(Replace(Application.Caller, "_", "")).Visible = Not Shapes(Replace(Application.Caller, "_", "")).Visible
End Sub

 

[Perlut]

Bedankt

Hallo,
Ik heb de macro code gebruikt van Edmoor. Waarvoor dank.
Ik heb zoals aanbevolen de knoppen een duidelijke naam gegeven.
Alles werkt perfect. Indien nodig kan ik nu andere bladen maken en werken met andere knoppen en afbeeldingen.

@ snb
Uw macro werkte perfect maar ik begrijp niet hoe deze aan de knoppen is gelinkt.
Ik heb in de code gekeken maar vind niks terug. natuurlijk bedankt voor de inspanning om op mijn vraag te antwoorden.


Perlut

 

[edmoor]

In het voorbeeld van snb is Application.Caller de grote truck. Zoek daar maar eens op

 

[snb]

In dit geval is het een truc, geen truck

 

[edmoor]

Daar heb je chelijk in