FAQ PowerPoint
FAQ PowerPointConsultez toutes les FAQ
Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 10 juillet 2021
Sommaire→Macros, VBA et fonctions avancées→Zone de texte
vba
Sélectionnez
Largeur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundWidth
Hauteur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundHeightCréé le 10 octobre 2007 par annedeblois
Une zone de texte est un objet Shape (comme tous les objets qui se trouvent dans PowerPoint).
Le code suivant ajoute une zone de texte à la première diapositive de la présentation active,
en modifiant quelques uns des ses attributs.
vba
Sélectionnez
Public Sub AjoutZoneTexte()
'---------------------------------------------------------------------------------------
' Procedure : AjoutZoneTexte
' Auteur : Philippe JOCHMANS - http://starec.developpez.com
' Date : 08/06/2009
' Commentaires : Comment ajouter une zone de texte
'---------------------------------------------------------------------------------------
' déclaration
Dim sld As Slide
Dim shp As Shape
' affectation à l'objet slide la première diapositive de la présentation en cours.
Set sld = ActivePresentation.Slides(1)
' création de la zone de texte
Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 300, 50)
' ajout du texte
With shp.TextFrame.TextRange
' ajout du texte
.Text = "Bonjour et bienvenue sur DVP"
' modification de la police
.Font.Name = "Comic sans MS"
' modification de quelques attributs
.Font.Bold = msoTrue
.Font.Italic = msoTrue
.Font.Size = 15
End With
End SubCréé le 1er août 2009 par Philippe JOCHMANS