Réduire une image - macro

[phoque.r]

Bonjour,

existe-t-il une macro qui permette de réduire la taille d'une image (histoire de passer à un format assez léger) si celle-ci dépasse la format?

merci
phoque.r

 

[MichelXld]

Re : Réduire une image - macro

bonjour

Elle est ou cette image? dans le classeur ou sur le disque dur ?



Bon apres midi
MichelXld

 

[phoque.r]

Re : Réduire une image - macro

L'image est sur le disque dur

 

[MichelXld]

Re : Réduire une image - macro

bonjour


J'espère que ces liens pourront t'aider, notamment l'exemple permettant de redimensionner une image

https://www.excel-downloads.com/threads/ref-wiki-page-10-de-michelxld.92378/

Utiliser la librairie Windows Image Acquisition en VBA - Club d'entraide des développeurs francophones



Bon après midi
MichelXld

 

[phoque.r]

Re : Réduire une image - macro

Merci, je n'avais pas fait attention à la réponse

 

[MJ13]

Re : Réduire une image - macro

Bonjour Phoque.R et MichelXLD

Merci Michel pour ces démos fantastiques.

Est-il possible si on a le chemin et le nom de de l'image dans une cellule de redimensionner cette image à 90 (comme dans ta macro redimensionnerImage), de la réduire en qualité à 25% par exemple et de l'incorporer dans la cellule?

En fait il me manque le code pour incorporer l'image dans la cellule.

Merci d'avance et bonne soirée.

 

[MichelXld]

Re : Réduire une image - macro

bonsoir Michel

Merci pour ton message.
Voici un exemple pour positionner une image à l'emplacement d'une cellule

Sub AjoutImageFeuille()
    Dim Shp As Shape
    Dim Fichier As String
    Dim Cell As Range
    
    Fichier = "C:\Documents and Settings\mimi\dossier\Image2.jpg"
    
    Set Cell = Range("B10")
    
    'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
    Set Shp = Feuil1.Shapes.AddPicture _
        (Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End Sub

Bonne soirée
MichelXld

 

[MJ13]

Re : Réduire une image - macro

Bonjour et merci beaucoup Michel.

c'est super!