Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonjour, ;-))) en toute logique il faut calculer la trajectoire sous la forme y=a*x2+b*x+c préciser le début, la fin puis par homotécie et mise à l'échelle adapter à la résolution de l'écran. application.window.usablewidth calculer le coefficient H et application.window.usableheight calculer le coefficient V
puis quelque chose comme ça à adapter:
for x= debut to fin step nnn 'y=ici l'équation de la parabole activesheet.shapes("objet").left=x*coeffH '(left doivent toujour etre positif) activesheet.shapes("objet").top=y*coeffV '(top doit toujours etre positif) do events next en gardant a l'esprit que les y sont inversés (0rigine Top est en haut)
peut-etre un exemple approchant sur les téléchargements http://www.excelabo.net (gd-cool.zip) @+
-----Message d'origine----- Bonjour à tous,
comment peut-on en VBA définir pour un objet de type Shape
une trajectoire parabolique ?
Merci d'avance
Fred .
Bonjour,
;-)))
en toute logique il faut calculer la trajectoire sous la
forme y=a*x2+b*x+c
préciser le début, la fin
puis par homotécie et mise à l'échelle adapter à la
résolution de l'écran.
application.window.usablewidth
calculer le coefficient H
et
application.window.usableheight
calculer le coefficient V
puis quelque chose comme ça à adapter:
for x= debut to fin step nnn
'y=ici l'équation de la parabole
activesheet.shapes("objet").left=x*coeffH
'(left doivent toujour etre positif)
activesheet.shapes("objet").top=y*coeffV
'(top doit toujours etre positif)
do events
next
en gardant a l'esprit que les y sont inversés (0rigine
Top est en haut)
peut-etre un exemple approchant sur les téléchargements
http://www.excelabo.net (gd-cool.zip)
@+
-----Message d'origine-----
Bonjour à tous,
comment peut-on en VBA définir pour un objet de type
Shape
Bonjour, ;-))) en toute logique il faut calculer la trajectoire sous la forme y=a*x2+b*x+c préciser le début, la fin puis par homotécie et mise à l'échelle adapter à la résolution de l'écran. application.window.usablewidth calculer le coefficient H et application.window.usableheight calculer le coefficient V
puis quelque chose comme ça à adapter:
for x= debut to fin step nnn 'y=ici l'équation de la parabole activesheet.shapes("objet").left=x*coeffH '(left doivent toujour etre positif) activesheet.shapes("objet").top=y*coeffV '(top doit toujours etre positif) do events next en gardant a l'esprit que les y sont inversés (0rigine Top est en haut)
peut-etre un exemple approchant sur les téléchargements http://www.excelabo.net (gd-cool.zip) @+
-----Message d'origine----- Bonjour à tous,
comment peut-on en VBA définir pour un objet de type Shape
