Bonjour,
1. Pour tracer une droite, j'utilise la méthode Addline
Syntaxe de l'aide
expression.AddLine(XDébut, YDébut, XFin, YFin)
2. Ensuite j'explore les propriérés de mon résultat et j'utilise les
propriétés de SHAPE : Top, Left, Height, Width
3. Je calcule Bottom = Top+Height ; right = left+Width
4. Je compare mes données de traçage initial et les données de l'exploration
: il y a des différences
5. Si je retrace ma droite avec les données de l'exploration je n'obtiens pas
le même résultat visuel
Le problème est le suivant :
On ne sait pas si la droite est orientée / ou orientée
Par exemple, je peux tracer une droite avec X1>X2 => cas d'une droite
orientée /
Mais par l'exploration Left = X2 < Right = X1 => du coup ma droite sera
orientée si je la retrace
A ce stade je n'utilise pas les rotations
Comment peut-on connaitre la position de la droite dans la forme ?
Papyjac
Bonjour,
1. Pour tracer une droite, j'utilise la méthode Addline
Syntaxe de l'aide
expression.AddLine(XDébut, YDébut, XFin, YFin)
2. Ensuite j'explore les propriérés de mon résultat et j'utilise les
propriétés de SHAPE : Top, Left, Height, Width
3. Je calcule Bottom = Top+Height ; right = left+Width
4. Je compare mes données de traçage initial et les données de l'exploration
: il y a des différences
5. Si je retrace ma droite avec les données de l'exploration je n'obtiens pas
le même résultat visuel
Le problème est le suivant :
On ne sait pas si la droite est orientée / ou orientée
Par exemple, je peux tracer une droite avec X1>X2 => cas d'une droite
orientée /
Mais par l'exploration Left = X2 < Right = X1 => du coup ma droite sera
orientée si je la retrace
A ce stade je n'utilise pas les rotations
Comment peut-on connaitre la position de la droite dans la forme ?
Papyjac
Bonjour,
1. Pour tracer une droite, j'utilise la méthode Addline
Syntaxe de l'aide
expression.AddLine(XDébut, YDébut, XFin, YFin)
2. Ensuite j'explore les propriérés de mon résultat et j'utilise les
propriétés de SHAPE : Top, Left, Height, Width
3. Je calcule Bottom = Top+Height ; right = left+Width
4. Je compare mes données de traçage initial et les données de l'exploration
: il y a des différences
5. Si je retrace ma droite avec les données de l'exploration je n'obtiens pas
le même résultat visuel
Le problème est le suivant :
On ne sait pas si la droite est orientée / ou orientée
Par exemple, je peux tracer une droite avec X1>X2 => cas d'une droite
orientée /
Mais par l'exploration Left = X2 < Right = X1 => du coup ma droite sera
orientée si je la retrace
A ce stade je n'utilise pas les rotations
Comment peut-on connaitre la position de la droite dans la forme ?
Papyjac
Ce qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Ce qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Ce qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
BonjourCe qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait ce
qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes. Certes
on sait d'après le type que cette forme est une droite, mais les coordonnées
sont celles d'un rectangle (la position d'un coin et la longueur et la
largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ? Et si
la droite se termine par une flèche, où se situe la flèche, auquel des 4
coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour cela,
mais la forme à 0 Ajustements.[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Bonjour
Ce qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait ce
qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes. Certes
on sait d'après le type que cette forme est une droite, mais les coordonnées
sont celles d'un rectangle (la position d'un coin et la longueur et la
largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ? Et si
la droite se termine par une flèche, où se situe la flèche, auquel des 4
coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour cela,
mais la forme à 0 Ajustements.
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
BonjourCe qui est bien ennuyeux, c'est que manuellement, on met des centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait ce
qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes. Certes
on sait d'après le type que cette forme est une droite, mais les coordonnées
sont celles d'un rectangle (la position d'un coin et la longueur et la
largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ? Et si
la droite se termine par une flèche, où se situe la flèche, auquel des 4
coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour cela,
mais la forme à 0 Ajustements.[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Bonsoir Geo,
Aaaah oui ! j'ai compris maintenant !! :D Quelquefois il me faut du temps
! ;)
Effectivement une ligne en diagonale est assimilée à la diagonale d'un
rectangle et les mesures données sont toujours celles qui font référence à
l'angle supérieur gauche, même si la diagonale est /.
A priori Ppt se fiche de la manière dont a été tracée la ligne, le point
de départ sera toujours considéré comme étant l'angle supérieur gauche.
Donc pour trouver la correspondance d'une ligne il suffit de faire des
additions (hauteur puis largeur), mais pour une ligne /, je comprends que
ce soit plus... délicat ! En dehors d'une solution de tracé avec un flip
(vertical), je n'ai pas d'autres idées...
Circé
http://faqword.fr
Il se trouve que Geo a formulé :BonjourCe qui est bien ennuyeux, c'est que manuellement, on met des
centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait
ce qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes.
Certes on sait d'après le type que cette forme est une droite, mais les
coordonnées sont celles d'un rectangle (la position d'un coin et la
longueur et la largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ?
Et si la droite se termine par une flèche, où se situe la flèche, auquel
des 4 coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour
cela, mais la forme à 0 Ajustements.[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Bonsoir Geo,
Aaaah oui ! j'ai compris maintenant !! :D Quelquefois il me faut du temps
! ;)
Effectivement une ligne en diagonale est assimilée à la diagonale d'un
rectangle et les mesures données sont toujours celles qui font référence à
l'angle supérieur gauche, même si la diagonale est /.
A priori Ppt se fiche de la manière dont a été tracée la ligne, le point
de départ sera toujours considéré comme étant l'angle supérieur gauche.
Donc pour trouver la correspondance d'une ligne il suffit de faire des
additions (hauteur puis largeur), mais pour une ligne /, je comprends que
ce soit plus... délicat ! En dehors d'une solution de tracé avec un flip
(vertical), je n'ai pas d'autres idées...
Circé
http://faqword.fr
Il se trouve que Geo a formulé :
Bonjour
Ce qui est bien ennuyeux, c'est que manuellement, on met des
centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait
ce qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes.
Certes on sait d'après le type que cette forme est une droite, mais les
coordonnées sont celles d'un rectangle (la position d'un coin et la
longueur et la largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ?
Et si la droite se termine par une flèche, où se situe la flèche, auquel
des 4 coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour
cela, mais la forme à 0 Ajustements.
[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Bonsoir Geo,
Aaaah oui ! j'ai compris maintenant !! :D Quelquefois il me faut du temps
! ;)
Effectivement une ligne en diagonale est assimilée à la diagonale d'un
rectangle et les mesures données sont toujours celles qui font référence à
l'angle supérieur gauche, même si la diagonale est /.
A priori Ppt se fiche de la manière dont a été tracée la ligne, le point
de départ sera toujours considéré comme étant l'angle supérieur gauche.
Donc pour trouver la correspondance d'une ligne il suffit de faire des
additions (hauteur puis largeur), mais pour une ligne /, je comprends que
ce soit plus... délicat ! En dehors d'une solution de tracé avec un flip
(vertical), je n'ai pas d'autres idées...
Circé
http://faqword.fr
Il se trouve que Geo a formulé :BonjourCe qui est bien ennuyeux, c'est que manuellement, on met des
centimètres,
J'ai l'impression que le souci de Jacques va plus loin.
Quand on dessine une droite : d'accord il n'y a pas de problème, on sait
ce qu'on fait.
Mais si on analyse le contenu d'une diapo, on y retrouve des shapes.
Certes on sait d'après le type que cette forme est une droite, mais les
coordonnées sont celles d'un rectangle (la position d'un coin et la
longueur et la largeur).
La droite va en diagonale d'un coin à un autre, mais quelle diagonale ?
Et si la droite se termine par une flèche, où se situe la flèche, auquel
des 4 coins ?
Je pensais qu'on pourrait s'appuyer sur les poignées (adjustments) pour
cela, mais la forme à 0 Ajustements.[Réponse faite sur le forum public PowerPoint :
news://msnews. microsoft.com/microsoft.public.fr.PowerPoint ]
Oui, à vous deux vous avez bien compris mon problème... un peu bête : car j'essai de
retracer automatiquement un dessin que j'ai fait manuellemenent => Et j'ai bien ce
problème pour les lignes
Oui, à vous deux vous avez bien compris mon problème... un peu bête : car j'essai de
retracer automatiquement un dessin que j'ai fait manuellemenent => Et j'ai bien ce
problème pour les lignes
Oui, à vous deux vous avez bien compris mon problème... un peu bête : car j'essai de
retracer automatiquement un dessin que j'ai fait manuellemenent => Et j'ai bien ce
problème pour les lignes
BonjourOui, à vous deux vous avez bien compris mon problème... un peu bête : car
j'essai de retracer automatiquement un dessin que j'ai fait
manuellemenent => Et j'ai bien ce problème pour les lignes
Je ne trouve pas que ce soit bête du tout, et la réponse est dans vos deux
derniers messages.
Voici une macro qui trace deux lignes sur la première diapo qui doit être
vide, et fait un flip sur l'une d'elle.
La propriété HorizontalFlip donne cette indication.
En combinant HorizontalFlip et VerticalFlip on détermine sur quelle
diagonale est la droite et son sens.
Foin de cubisme, il va falloir travailler la combinatoire.
Bon courage
Option Explicit
Sub testflip()
Dim Forme1 As Shape
Dim Forme2 As Shape
Dim Diapo As Slide
Dim MaLigne As LineFormat
Set Diapo = ActivePresentation.Slides(1)
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(255, 0, 0)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(0, 50, 200)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set Forme1 = Diapo.Shapes(1)
Forme1.Flip msoFlipHorizontal
Set Forme2 = Diapo.Shapes(2)
Debug.Print Forme1.HorizontalFlip, Forme2.HorizontalFlip
End Sub
--
A+
Bonjour
Oui, à vous deux vous avez bien compris mon problème... un peu bête : car
j'essai de retracer automatiquement un dessin que j'ai fait
manuellemenent => Et j'ai bien ce problème pour les lignes
Je ne trouve pas que ce soit bête du tout, et la réponse est dans vos deux
derniers messages.
Voici une macro qui trace deux lignes sur la première diapo qui doit être
vide, et fait un flip sur l'une d'elle.
La propriété HorizontalFlip donne cette indication.
En combinant HorizontalFlip et VerticalFlip on détermine sur quelle
diagonale est la droite et son sens.
Foin de cubisme, il va falloir travailler la combinatoire.
Bon courage
Option Explicit
Sub testflip()
Dim Forme1 As Shape
Dim Forme2 As Shape
Dim Diapo As Slide
Dim MaLigne As LineFormat
Set Diapo = ActivePresentation.Slides(1)
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(255, 0, 0)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(0, 50, 200)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set Forme1 = Diapo.Shapes(1)
Forme1.Flip msoFlipHorizontal
Set Forme2 = Diapo.Shapes(2)
Debug.Print Forme1.HorizontalFlip, Forme2.HorizontalFlip
End Sub
--
A+
BonjourOui, à vous deux vous avez bien compris mon problème... un peu bête : car
j'essai de retracer automatiquement un dessin que j'ai fait
manuellemenent => Et j'ai bien ce problème pour les lignes
Je ne trouve pas que ce soit bête du tout, et la réponse est dans vos deux
derniers messages.
Voici une macro qui trace deux lignes sur la première diapo qui doit être
vide, et fait un flip sur l'une d'elle.
La propriété HorizontalFlip donne cette indication.
En combinant HorizontalFlip et VerticalFlip on détermine sur quelle
diagonale est la droite et son sens.
Foin de cubisme, il va falloir travailler la combinatoire.
Bon courage
Option Explicit
Sub testflip()
Dim Forme1 As Shape
Dim Forme2 As Shape
Dim Diapo As Slide
Dim MaLigne As LineFormat
Set Diapo = ActivePresentation.Slides(1)
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(255, 0, 0)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set MaLigne = Diapo.Shapes.AddLine(BeginX:, BeginY:, _
EndX:%0, EndY:%0).Line
With MaLigne
.ForeColor.RGB = RGB(0, 50, 200)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
Set Forme1 = Diapo.Shapes(1)
Forme1.Flip msoFlipHorizontal
Set Forme2 = Diapo.Shapes(2)
Debug.Print Forme1.HorizontalFlip, Forme2.HorizontalFlip
End Sub
--
A+