Propriété ScaleEffect.FromX (PowerPoint)
Définit ou renvoie une valeur de type Single qui représente la largeur de départ ou la position horizontale d’un objet ScaleEffect , spécifié en pourcentage de la largeur de l’écran. En lecture/écriture
Syntaxe
expression. FromX
Expression Variable qui représente un objet ScaleEffect .
Valeur renvoyée
Unique
Remarques
La valeur par défaut de cette propriété est Empty, la position actuelle de l’objet est utilisée.
Utilisez cette propriété conjointement avec la propriété ToX pour redimensionner ou passer d’une position à une autre.
Ne confondez pas cette propriété avec la propriété From des objets ColorEffect, RotationEffect ou PropertyEffect , qui est utilisée pour définir ou modifier des couleurs, des rotations ou d’autres propriétés d’un comportement d’animation, respectivement.
Exemple
L’exemple suivant ajoute un chemin d’animation et définit les positions horizontale et verticale de début et de fin.
Sub AddMotionPath()
Dim effCustom As Effect
Dim animMotion As AnimationBehavior
Dim shpRectangle As Shape
'Adds shape and sets effect and animation properties
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom)
Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion)
'Sets starting and ending horizontal and vertical positions
With animMotion.MotionEffect
.FromX = 0
.FromY = 0
.ToX = 50
.ToY = 50
End With
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Envoyer et afficher des commentaires pour