OVH Cloud OVH Cloud

Formes automatiques

3 réponses
Avatar
Matt
Je voudrais savoir s'il est possible de g=E9nerer des formes=20
en rentrant simplement des valeurs type Long, Larg,=20
Hauteur, je ne sais pas si ma question est tres clair en=20
tout cas je remercie d'avance tous ceux qui pourront=20
m'aider !

Matt

3 réponses

Avatar
garnote
Salut Matt,

Un exemple qui pourrait peut-être te convenir :

Sub InsérerUnSourire()
L = 50: T = 50
W = 150: H = 150
Set sourire = ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, _
L, T, W, H)
End Sub

Serge

"Matt" a écrit dans le message de news:
11c601c3b435$3702c2a0$
Je voudrais savoir s'il est possible de génerer des formes
en rentrant simplement des valeurs type Long, Larg,
Hauteur, je ne sais pas si ma question est tres clair en
tout cas je remercie d'avance tous ceux qui pourront
m'aider !

Matt
Avatar
Tout d'abord merci pour ta réponse j'avance un peu ...
cependant voila tout je nai jamais fais de visual et je
voudrais savoir par rapport au modele ke tu ma envoyé
comment indiquer une cellule de feuille excel pour les
dimension de la forme ???

Merci pour la réponse et ton aide précieuse !

Matt

-----Message d'origine-----
Salut Matt,

Un exemple qui pourrait peut-être te convenir :

Sub InsérerUnSourire()
L = 50: T = 50
W = 150: H = 150
Set sourire = ActiveSheet.Shapes.AddShape
(msoShapeSmileyFace, _

L, T, W, H)
End Sub

Serge

"Matt" a écrit dans le
message de news:

11c601c3b435$3702c2a0$
Je voudrais savoir s'il est possible de génerer des formes
en rentrant simplement des valeurs type Long, Larg,
Hauteur, je ne sais pas si ma question est tres clair en
tout cas je remercie d'avance tous ceux qui pourront
m'aider !

Matt


.



Avatar
garnote
Salut Mathieu,

J'ai utilisé :
L pour la distance entre le bord gauche de l'écran
et la gauche de la forme
T pour la distance entre le haut de l'écran
et le haut de la forme
W pour la largeur de la forme
T pour la hauteur de la forme

Alors si tu entres ce renseignements en
A2, B2, C2 et D2, tu pourras t'y référer de
la façon suivante :

Sub InsérerUnSourire()
L = [a2]: T = [b2]
W = [c2]: H = [d2]
Set sourire = ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, _
L, T, W, H)
End Sub

Serge

a écrit dans le message de news:
010601c3b43f$9701e910$
Tout d'abord merci pour ta réponse j'avance un peu ...
cependant voila tout je nai jamais fais de visual et je
voudrais savoir par rapport au modele ke tu ma envoyé
comment indiquer une cellule de feuille excel pour les
dimension de la forme ???

Merci pour la réponse et ton aide précieuse !

Matt

-----Message d'origine-----
Salut Matt,

Un exemple qui pourrait peut-être te convenir :

Sub InsérerUnSourire()
L = 50: T = 50
W = 150: H = 150
Set sourire = ActiveSheet.Shapes.AddShape
(msoShapeSmileyFace, _

L, T, W, H)
End Sub

Serge

"Matt" a écrit dans le
message de news:

11c601c3b435$3702c2a0$
Je voudrais savoir s'il est possible de génerer des formes
en rentrant simplement des valeurs type Long, Larg,
Hauteur, je ne sais pas si ma question est tres clair en
tout cas je remercie d'avance tous ceux qui pourront
m'aider !

Matt


.