graphique

[bernard]

bonsoir a tous

mon probleme et le suivant ,dans une feuilles exel je dessine un rectangle que je redimensionne avec (format de la forme automatique) et je voudrais recuperer les dimensions ,(hauteur largeur) avec une macro ,pour les mettres dans un tableaux .
merci de par avance de me venir en aide
bernard

 

[MichelXld]

bonsoir Bernard

cette macro permet de recuperer la hauteur et la largeur de la premiere forme , dans la Feuil1


Sub dimensionsShape()
MsgBox Feuil1.Shapes(1).Width 'largeur
MsgBox Feuil1.Shapes(1).Height 'hauteur
End Sub



bonne soiree
Michel

 

[bernard]

merci je vais tester ca de suite encore merci
bernard

 

[bernard]

en faites je voudrais mettres les dimensions directement dans deux cellule et je n arrive pas a trouver la syntaxe
re merci
bernard

 

[MichelXld]

rebonsoir Bernard

pour inserer les données dans les cellules A1 et A2 , tu peux essayer

Sub dimensionsShape()
Range('A1')= Feuil1.Shapes(1).Width 'largeur
Range('A2')= Feuil1.Shapes(1).Height 'hauteur
End Sub


bonne soiree
MichelXld

 

[bernard]

ok c est exactement ce que je cherchais mille mercis michel
c est la premiere fois que je pose une question sur le forum que je connais depuis longtemps et je vous remercie pour la rapidité de vos reponses d'habitude je passe des journees entieres à trouver par moi meme et vous m'avez fait gagner un temps precieux sur un proget qui urge
Cordialement
bernard bonsoir