Bonjour,
J'ai un classeur avec plusieurs images liées à des cellules. Plusieurs images portent le même nom. Pouvez-vous vérifier que je n'ai pas fait d'erreur ? Voici le code utilisé :
Et le résultat obtenu :
Merci d'avance pour vos réponses.
Daniel
J'ai un classeur avec plusieurs images liées à des cellules. Plusieurs images portent le même nom. Pouvez-vous vérifier que je n'ai pas fait d'erreur ? Voici le code utilisé :
VB:
Sub test()
Dim sh As Shape
ligne = 1
Set Var = ActiveSheet.Shapes("Image 56")
With ThisWorkbook.Sheets(1)
.[2:100].ClearContents
For Each sh In ActiveSheet.Shapes
ligne = ligne + 1
.Cells(ligne, 2) = sh.Name
.Cells(ligne, 3) = sh.TopLeftCell.Address
.Cells(ligne, 4) = sh.BottomRightCell.Address
.Cells(ligne, 5) = sh.Height
.Cells(ligne, 6) = sh.Width
On Error Resume Next
.Cells(ligne, 7) = sh.DrawingObject.Formula
On Error GoTo 0
Next sh
End With
End Sub
Et le résultat obtenu :
Merci d'avance pour vos réponses.
Daniel