Macro pour traitement images sur Excel

Question

Bonjour,

Je travail actuellement sur des fichiers excel 2007 comprenants des images. (plusieurs centaines d'images)

Je ne suis pas un grand professionnel d'excel. (je sais créer des macros en cliquant sur enregistrer une macro, mais pour faire une écriture avec des ", des /, des * je suis largué)

Mon but est de pouvoir:

- supprimer les liens hypertextes de toutes les images
- redimensionner toutes les images à la même taille

Merci d'avance de vos réponses.

Cordialement.

m@rina · Answer

Bonjour,

Voilà une macro qui supprime les liens de chaque image, et règle la largeur de l'image à 10 cm :

Sub SupprimerTousLiens2()
Dim onglet, image

For Each onglet In ActiveWorkbook.Sheets
For Each image In onglet.Shapes
On Error Resume Next
image.Hyperlink.Delete
image.Width = Application.CentimetersToPoints(10)
Next image
Next onglet

End Sub

m@rina

Macro pour traitement images sur Excel

1 réponse

Discussions similaires

Newsletters