Propriété d'image

[naingallois]

Bonjour,
Je dispose d'un fichier excel avec beaucoup d'images et d'onglet pour mon milieu professionnel.
Une macro me permet de piocher ces images dans différents onglets et de les coller dans un nouvel onglet.

Or, lors du passage d'excel 2003 à 2007 / 2010, cette macro n'est plus suffisante car les propriétés d'image sont plus influentes qu'auparavant :

Les images ainsi copiées ne s'adaptent plus aux cases créées (L'option "Déplacer et dimensionner avec les cellules").
J'ai donc ajouter au début de ma macro ces lignes pour changer automatiquement les propriétés de chaque image :

Workbook.Pictures.Select
With Selection
.Placement = xlMoveAndSize
End With

Seulement, cette macro ne change les propriétés que des images de la feuille active.
J'aurais donc besoin de votre aide pour que cette macro agisse sur le classeur entier.

Merci d'avance de votre aide.
cordialement.

 

[mikachu]

Re : Propriété d'image

peut être un truc du genre:

for each ws in thisworkbook.worksheets
for each sha in ws.shapes
if sha.type = msoPicture then sha.Placement = xlMoveAndSize
next sha
next ws

 

[naingallois]

Re : Propriété d'image

Tout d'abord, merci beaucoup Mikachu pour ta réponse.

Cela me semble très bien partie à une seule chose : mon problème est inversé !
Désormais, tous les autres onglets sont bien gérés par le changement de propriété d'image mais pas l'onglet actif 🙂

Dois-je cumuler ces lignes avec les miennes ou celle-ci est elle perfectible ?

Merci.

 

[mikachu]

Re : Propriété d'image

Bizarre,

Je viens de (re)tester chez moi et toutes les images sont bien traitées...

 

[naingallois]

Re : Propriété d'image

En effet, je rectifie, une ligne (ancien test) n'était pas commentée.
Cela fonctionne désormais.

Merci beancoup 🙂