comment est-ce que je change la position de mon image avec des rangées de coordonnées dans vba

Question

J'essaye de programmer un jeu d'échecs dans VBA. Je voudrais changer la position des chiffres avec mousemove. Je peux déjà les déplacer mais ce serait génial si je pouvais relâcher la figurine et la silhouette si sautée au milieu du terrain.

Je ne sais pas comment résoudre le problème ne

Merci à l'avance

PS: Désolé pour mon mauvais anglais

Answer 1

Meilleur scénario - utiliser l'enregistreur de macro. Copiez la figure et collez-la quelque part.

Voir le code. Ensuite, assurez-vous que cela fonctionne, seulement dans la gamme donnée de l'échiquier. Ensuite, faire un événement comme celui-ci:

Option Explicit 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 

    If Intersect(Target, Range("A1:H8")) Is Nothing Then Exit Sub 
    Debug.Print Target.Address 

End Sub 

et essayer de construire le code enregistré dans Target.Address. L'événement est pour le clic droit de la souris. Il doit être placé dans la partie Worksheet du VBEditor.