Newsletter Developpez.com

Inscrivez-vous gratuitement au Club pour recevoir
la newsletter hebdomadaire des développeurs et IT pro

FAQ PowerPointConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireMacros, VBA et fonctions avancéesZone de texte
vba
Sélectionnez

Largeur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundWidth
Hauteur = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.BoundHeight
Créé 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 Sub
Créé le 1er août 2009  par Philippe JOCHMANS
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.