gourdin
XLDnaute Impliqué
Bonjour,
Ci-dessous une macro permettant l'insertion d'image qui fonctionne très bien.
Est il possible de limiter la taille de l'image par la macro ?
Exemple si l'image choisie dépasse 300 Ko la macro envoie un message en signalant que la taille est trop grande et que l'insertion n'est pas possible.
Merci.
Code Macro :
Ci-dessous une macro permettant l'insertion d'image qui fonctionne très bien.
Est il possible de limiter la taille de l'image par la macro ?
Exemple si l'image choisie dépasse 300 Ko la macro envoie un message en signalant que la taille est trop grande et que l'insertion n'est pas possible.
Merci.
Code Macro :
Code:
Sub Inserer_image()
Dim Choix
With ActiveSheet
Choix = Application.GetOpenFilename("Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Choix de l'image", , False)
If Choix = False Then Exit Sub
On Error Resume Next
.Pictures.Insert(Choix).Name = "NewPhoto"
End With
End Sub