Excel - image suive la barre de défilement

Je pourrais sinon te conseiller la macro suivante :

_Sub resizePic()
____Dim rngCanSee As Range
____Set ecran = ActiveWindow.VisibleRange
____With ActiveSheet.Pictures(1)
_______' Ici tu peux définir la position voulue.
_______' Tu peux utiliser ecran.VisibleRange.Left et ecran.VisibleRange.Top
_______.Left = ecran.Left + 20
_______.Top = ecran.Top + 20
____End With
_End Sub


Cette macro replace l'image à l'endroit voulu chaque fois qu'une nouvelle fenêtre est sélectionnée si tu l'appelle dans cet évènement :

_Private Sub Worksheet_SelectionChange(ByVal Target As Range)
____Call resizePic
_End Sub


Par contre, elle n'est pas repositionnée si les scrolls sont déplacés à l'aide de la sourie qu'après avoir cliqué sur l'écran.

Yassine,

Bonjour,

On a la possibilité de nous positionner par rapport au bas de la page et de prendre en compte le redimensionnement. Il suffit de savoir comment doivent se repositionner les commandes quand on change de dimension.

Ce qui suit est un exemple qui permet de positionner une forme à 20p du bas et au milieu de l'écran :

.... Sub resizePic()
........ Set ecran = ActiveWindow.VisibleRange
........ With ActiveSheet.Shapes(1)
............ .Left = ecran.Left + ecran.Width / 2 - .Width / 2
............ .Top = ecran.Top + ecran.Height - .Height - 20
........ End With
..... End Sub

Je ne vais pas commenter la macro, je pense qu'elle est assez claire.
En général, on positionne les boutons en bas à gauche. Alors même si l'écran est réduit on peut toujours caser les images à gauches.

Sinon, des macros pour redimensionner les fenêtres peuvent être utilisées. En voici un exemple :

Sub resizeWin()
.... Set ecran = ActiveWindow.VisibleRange
.... With ActiveSheet.Shapes(1)
........ If ActiveWindow.WindowState = xlNormal Then
............ If ecran.Width < .Width Then ActiveWindow.Width = ActiveWindow.Width - ecran.Width + .Width
............ If ecran.Height < .Width Then ActiveWindow.Height = ActiveWindow.Height - ecran.Height + .Height
........ End If
.... End With
End Sub

Que tu met dans l'événement :

Private Sub Workbook_WindowResize(ByVal Wn As Window)
.... resizeWin
End Sub

Je pense que tu peux quand même rendre l'exercice à ton prof ;-)

Bonjour,

Essaye de fractionner la fenêtre. Cela va la diviser en plusieurs fenêtres dont une est amovible (là où les photos boutons vont être placées). Puis appui sur le bouton figer.

C'est une manière de faire qui, personnellement, ne me satisfait pas car elle limite l'affichage. Mais ça peut aider pour cette affaire.

Bonne continuation,
Yassine

Bonsoir,
Après moultes tests, j'en viens à un constat :
Je souhaite mettre mes images via la macro au bottom de la page.
Problème, selon la dimension de l'écran de l'ordinateur ou du zoom sur excel, la macro précédente ne mettra pas toujours les images en bas.
Sur mon pc elles sont en bas, sur un autre on ne les voient meme plus tellement elles sont basses ...
pas pratique pour rendre le projet à mon prof ... je ne vais pas lui demander la taille de son écran !

ActiveWindow.VisibleRange.Bottom ne marche pas ! Que dois-je faire alors ?