Insertion image - Macro imposée taille maxi

  • Initiateur de la discussion Initiateur de la discussion gourdin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 :
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
 
Re : Insertion image - Macro imposée taille maxi

Bonjour gourdin,

un essai

Code:
Sub Inserer_image()
Dim Choix, fs, f
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
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.getfile(Choix)
    If f.Size > 307200 Then
        MsgBox "Taille d'image trop importante" & Chr(10) & "Choisissez une image de moins de 300 Ko"
        Exit Sub
    End If
    Set f = Nothing
    Set fs = Nothing
    .Pictures.Insert(Choix).Name = "NewPhoto"
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
39
Affichages
5 K
  • Question Question
Microsoft 365 choisir une page
Réponses
6
Affichages
806
Réponses
0
Affichages
2 K
Réponses
58
Affichages
6 K
Retour