graphique

M

MichelXld

XLDnaute Barbatruc

• 11 Mai 2005

• #2

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

 

Vote positif 0 Vote négatif

B

bernard

Guest

• 11 Mai 2005

• #3

merci je vais tester ca de suite encore merci
bernard

 

Vote positif 0 Vote négatif

B

bernard

Guest

• 11 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 11 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

B

bernard

Guest

• 11 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif