image mobile avnt deplacement sur la feuille

[jderoque]

bonjour
voila g un page avec 50 graphiques qui ont la meme legende. je veux donc faire une seul legende. j'ai donc realisé ma légende sous forme dimage mé je voudrais que cette image soit mobile et suive le deplacement de sorte quelle soit tjrs visible.
si vous avez une idée je prend

 

[JCGL]

Bonjour jderoque,

Regarde sur ce lien du Forum VeriTi ce que Marco, mDF et Ti m'ont concocté.

Je pense que cela devrait te convenir


Ce lien n'existe plus

Encore un grand Merci à eux...

 

[jderoque]

je n'arrive pas a utilisé le code

Sub CentreImage()



Dim HautImage As Long, GaucheImage As Long

Application.ScreenUpdating = False

With ActiveWindow.ActivePane.VisibleRange
HautImage = .Top + (.Height / 2)
GaucheImage = .Left + (.Width / 2)
End With

With ActiveSheet.Shapes('MonImage')
.Top = HautImage - (.Height / 2)
.Left = GaucheImage - (.Width / 2)
End With

Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

CentreImage

End Sub

moi c une image que j'utilise donc c un peu different

 

[JCGL]

Bonsoir jderoque, le Forum

J'ai testé ce code avec une image et avec une 'photo prise par XL' et cela fonctionne parfaitement.

Pour la photo XL : voir le lien sur mon premier post sur VeriTi dans le post précédent sur XLD

Message édité par: JCGL, à: 11/01/2006 21:06

 

[jderoque]

c bon j'ai trouvé lastuce merc bcp pour tt