Excel VBA.Program Événement: = ActiveCell, Image: = Visible

Question

J'utilise Excel 2000 et besoin d'aide dans la programmation d'une image pour basculer entre visible et caché lorsqu'une cellule est active ou une simulation de cet événement.

Étant donné une liste de cinq éléments dans column A, une image distincte est associée à chaque élément. Lors de l'ouverture du fichier, toutes les images doivent être masquées, sauf si le fichier est ouvert avec l'un des éléments sélectionnés activement. Au fur et à mesure que l'utilisateur clique ou monte les curseurs column A, l'image affichée change pour l'image associée.

Je peux facilement le faire dans d'autres programmes/langues, mais je suis limité à Excel.

Answer 1

Vous pouvez intercepter les événements de niveau feuille de calcul dans le module de code derrière la feuille de calcul. cliquez droit sur l'onglet de la feuille, le code Affichage et collez le texte suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim sPic As String 

    On Error GoTo errExit 
    Me.Pictures.Visible = False ' hides ALL pictures 
    If Not Intersect(Range("A1:A5"), Target(1)) Is Nothing Then 
     Select Case Target.Address(0, 0) 
     Case "A1": sPic = "Picture 1" 
     Case "A2": sPic = "Picture 2" 
     Case "A3": sPic = "Picture 3" 
     Case "A4": sPic = "Picture 4" 
     Case "A5": sPic = "Picture 5" 
     End Select 
    Me.Pictures(sPic).Visible = True 
End If 

errExit: 

End Sub 

Adjust les noms de vos images en fonction. Pour voir le nom de l'image, sélectionnez-le et regardez la boîte "Noms" à gauche de la barre de saisie.

Fermez le VBE (éditeur visuel de base) lorsque vous avez terminé. Vous avez souvent besoin d'ajuster vos paramètres de sécurité macro.