[VBa-E] question(s) sur l'objet OLE "image Bitmap"!

J'ai fait une macro qui remplace l'image se trouvant déjà sur une feuille de calcul et affecte à l'image une macro qui remplace l'image

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub InsérerLimage()
    On Error Resume Next
    Set Limage = ActiveSheet.OLEObjects(1)
    With Limage
        .Delete
    End With
    On Error GoTo 0
    NomImage = InputBox("Chemin et nom de l'image", "Titre")
    If NomImage = "" Then NomImage = "D:\clipart\Animaux\AG00208_.GIF" 'image par défaut
    ActiveSheet.OLEObjects.Add FileName:=NomImage, Link:=False, _
                        DisplayAsIcon:=False
    Set Limage = ActiveSheet.OLEObjects(1)
    With Limage
        .OnAction = "InsérerLimage"
    End With
End Sub

J'ai découvert qu'on pouvait aussi jouer avec les images dans Excel, je vais m'en servir pour égayer mes stats :mouarf: