Redimensionner image automatiquement

Bonjour à tous,

Merci par avance pour votre aide. Je souhaiterais redimensionner les images via la VBA dans le cadre d'import de données dans une base. En effet, vous retrouver le bouton importer données qui permet de réaliser cela. En dessous le bouton taille, permet de redimensionner les images à la colone "I". Cependant cela fonctionne avec les images importer manuellement (via importer/image/...) mais cela ne fonctionne pas avec les images importer via mon formulaire d'import de données. Pouvez vous m'aider please

Bonjour,

Le plus simple est de mettre ce code dans le code du bouton de validation, il fait l'insertion, le positionnement et le redimentionnement de l'image :

      With ActiveSheet.Pictures.Insert(Me.chemin.Text)
'            .Name = "Marque"
            .ShapeRange.LockAspectRatio = msoFalse ' Si msoTrue on garde les proportions de l'image
            .Top = Cells(y, 9).Top
            .Left = Cells(y, 9).Left
            .Width = Cells(y, 9).Width
            .Height = Cells(y, 9).Height
         End With

La propriété .ShapeRange.LockAspectRatio permet à l'image de s'adapter à la cellule AVEC déformation, sinon tu dois choisir largeur de la cellule ou hauteur.

A toi de l'adapter en fonction de ton besoin.

Benoît Marchand