Mettre les dimensions d'images dans un tableau

Bonjour à tous,

Les plus coriaces d'entre vous ont peut-être essayé de résoudre mon premier problème sans y parvenir c'est pourquoi je reviens avec un second problème. J'ai trouvé sur internet une formule qui me renvoie les dimensions de mes images dans un MsgBox mais j'aimerai savoir s'il est possible de me les renvoyer dans un tableau? Avec par ligne, les mêmes informations que dans le msgbox.

Voici la macro en question ;

For Each myshape In ActiveSheet.Shapes

MsgBox ("Picture name = " & myshape.Name & _

", Height = " & myshape.Height & _

", Width = " & myshape.Width)

Next myshape

Merci à tous ceux qui essayeront !

Bonjour,

un essai ? !

    Dim Ligne As Long
    Ligne = 2
    For Each myshape In ActiveSheet.Shapes
        ActiveSheet.Cells(Ligne, 1).Value = myshape.Name
        ActiveSheet.Cells(Ligne, 2).Value = myshape.Height
        ActiveSheet.Cells(Ligne, 3).Value = myshape.Width
        Ligne = Ligne + 1
    Next myshape

@ bientôt

LouReeD

Merci infiniment LouReeD !

C'est exactement le résultat que je souhaitais

Je débute en VBA et j'ai du mal à créer moi-même mes formules... Je commence à comprendre comment les modifier un peu pour les arranger mais là j'ai eu du mal...

Sujet clos !

Merci pour vos remerciements !

N'hésitez pas à poser d'autre question sur de nouveaux fils

@ bientôt (très)

LouReeD

déjà tu t’intéresses au macro et tu essayes de les modifier c’est beaucoup plus que la plupart, continue comme ca ! avec un peu de temps tu pourras te débrouille sans soucis ou intégrer des trucs trouver sur le net

ECG

Voir dépasser mon niveau !

Je plaisante...

@ bientôt

LouReeD