Excel_Cursor_PictureRésolu

Question

Bonjour !

Je travail sur un fichier excel qui rassemble diverse informations et entre autre des photos.
Celles-ci étant très grandes, je cherche à les insérer manuellement, et les réduire sur ma feuille de façon à ce qu'elles ne prennent pas de place.
Cependant j'ai besoin de pouvoir les agrandir momentanément grâce à une opération simple.
J'ai d'abord pensé à un bouton "Agrandir/Diminuer" mais j'ai énormément de photos à gérer alors s'il faut un bouton pour chacunes d'entre elles....  bof bof

Est-ce que quelqu'un aurait une solution à mon problème?
La solution parfaite permettrai d'agrandir la photo lorsque le pointeur de la souris est dessus.
Cela dit, je suis ouvert à d'autre propostition, comme un click/double click sur la photo etc...

Merci d'avance 

ps: J'ai des bases en VBA mais je ne maîtrise pas bien les évenements...

cs_bipou · Accepted Answer

affecter toutes tes images à la macro suivantes:

Sub Macro1()
'
' Macro1 Macro
'
Const hauteur_maxi = 600 'hauteur de l'image agrandie
Const hauteur_mini = 60 'hauteur de l'image réduite
Dim image_appelante As String
image_appelante = Application.Caller
With ActiveSheet.Shapes(image_appelante)
    If .Height >= hauteur_maxi Then 'aspect 100%
        .LockAspectRatio = msoTrue
        .Height = hauteur_mini
    Else
        .LockAspectRatio = msoTrue
        .Height = hauteur_maxi
    End If
    .ZOrder msoBringToFront
End With
End Sub

NHenry · Answer

Bonjour

Avec l'évenement MouseMove, tu peux savoir si la sourie est sur ta picture box.
Unf fois cet evenement détecté, tu réduit toutes les autres et aggrandis celle sous le curseur.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

TeRRanCeLvBa · Answer

Bonjour à toi NHenry.

Avant tout merci pour ta réponse.
Malgré tout je n'arrive pas à m'en sortir. Comment puis-je détecter l'image sous mon curseur? Je veux dire :
Par exemple j'ai trois images A, B et C. Comment déterminer sur laquelle est mon curseur ? (Pour une cellule on utilise Activcell. pour une image ...... ?)

Aurais-tu un bout de code à me proposer ? Disons avec une image nommé "Image1". Comment j'écris tout ça dans mon évenement ?

Merci d'avance..

NHenry · Answer

Bonjour

Une piste (sans rien pour tester) :

dans ta userform : 
private mActivPicture as long

private Sub Form_Load()
    mActivePicture=0
End Sub

Private Sub Picture1_MouseMove(...)

    mActivePicture=1

end sub

Private Sub Picture2_MouseMove(...)

    mActivePicture=2

end sub

...

Et dans mActivePicture tu as la dernière pucturebox sur laquel est passée la sourie.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_bipou · Answer

bonjour,
si j'ai bien compris
 TeRRanCeLvBa travaille sur un fichier EXCEL en VBA
et
 NHenry lui propose une réponse en VB

Si tel est le cas, la solution de NHenry ne peut fonctionner.
J'ai une solution si quelqu'un la désire encore

TeRRanCeLvBa · Answer

Je n'arrive pas en effet à faire fonctionner ce code.


Il faut que mes image soit dans des picturebox ? Moi je voudrais qu'elle soit apparente sur ma feuille tout le temps, en miniature et seulement lorsque le curseur est sur l'une d'entre elle alors cette dernière s'agrandi.


"dans ta userform : 
private mActivPicture as long"
Quelle userform ?

NHenry · Answer

Bonjour

En effet, j'ai pensé que c'était posé sur un UserForm.
Il faudrait utiliser OLE, et là je n'ai rien pour tester.
Sinon, la solution par un clic est sans doute plus simple.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

TeRRanCeLvBa · Answer

Merci beaucoup pour votre aide !
Cela fonctionne parfaitement.

Excel_Cursor_Picture

8 réponses

Votre réponse