Image trouver l'adresse de sa position

[MJ13]

Bonjour à tous

J'ai une image sur une feuille que je sélectionne.

Comment puis je connaître l'adresse de la cellule où se trouve l'image?

Merci d'avance.

 

[BOISGONTIER]

Re : Image trouver l'adresse de sa position

Bonjour,

TopLeftCell.Address donne la cellule où est située une image.

x = ActiveSheet.Shapes("xxx").TopLeftCell.Address

Sur cet exemple, nous supprimons le shape de la cellule B10

Sub EffaceMentShapeCellule()
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = "$B$10" Then s.Delete
Next s
End Sub

Cellules contenant des images:

For Each s In ActiveSheet.Shapes
x= s.TopLeftCell.Address
y= s.BottomRightCell.Address
Next s

Les images et shapes

JB

 

[MJ13]

Re : Image trouver l'adresse de sa position

Bonjour Jacques

Merci beaucoup pour la rapidité. C'est la propriété TopLeftCell qui me manquait.

Bonne journée.

 

[pierrejean]

Re : Image trouver l'adresse de sa position

bonjour Michel

A tester:

Sub test()
haut = Selection.Top
gauche = Selection.Left
For n = 1 To 65536
  diff = haut - Range("A" & n).Top
  If diff < 0 Then
    ligne = n - 1
    Exit For
  End If
Next n
For n = 1 To 256
  diff = gauche - Cells(1, n).Left
  If diff < 0 Then
    colonne = n - 1
    Exit For
  End If
Next n
MsgBox (Cells(ligne, colonne).Address(0, 0))
End Sub

Edit: A la bourre !!!
Et pas tres bon en plus !!!
Salut JB

 

[Hervé]

Re : Image trouver l'adresse de sa position

bonjour michel

regarde du coté de : topleftcell

salut

edit : salut pierrejean, suis content de te croiser ^^

 

[MJ13]

Re : Image trouver l'adresse de sa position

Bonjour Pierrejean, Hervé

Merci pour vos solutions.

Chapeau Pierrejean pour ce code.

Bon du coups, j'ai pu centrer mes images sur les cellules.

Voici le fichier pour centrer les images avec le code qui va bien et qui devrait bien me servir dans l'avenir (Testé sur XL2003.).