IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

FAQ PowerPoint

FAQ PowerPointConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 10 juillet 2021 

 
OuvrirSommaireMacros, VBA et fonctions avancéesTableau

Le code suivant crée un tableau de 10 lignes et de 5 colonnes, et lui affecte un nom.

vba
Sélectionnez
Public Sub CreationTableau()
     '---------------------------------------------------------------------------------------
     ' Procedure      : CreationTableau
     ' Auteur         : Philippe JOCHMANS - http://starec.developpez.com
     ' Date           : 08/06/2009
     ' Commentaires   : Ce code va permettre de créer un tableau dans PowerPoint
     '---------------------------------------------------------------------------------------
 
    ' déclaration
    Dim sld As Slide
    Dim shp As Shape
 
    ' affectation
    Set sld = ActivePresentation.Slides(1)
 
    ' tableau
    Set shp = sld.Shapes.AddTable(10, 5, 10, 10, 250, 250)
 
    ' propriétés
    With shp
        .Name = "MonTableau"        'on donne un nom au tableau
    End With
End Sub
Créé le 1er août 2009  par Philippe JOCHMANS

Le code suivant ajoute une image dans la première cellule d'un tableau.

vba
Sélectionnez
Public Sub AjoutImageTableau()
     '---------------------------------------------------------------------------------------
     ' Procedure      : CreationTableau
     ' Auteur         : Philippe JOCHMANS - http://starec.developpez.com
     ' Date           : 08/06/2009
     ' Commentaires   : Ajouter une image dans un tableau
     '---------------------------------------------------------------------------------------
 
    ' déclaration
    Dim sld As Slide
    Dim shp As Shape
 
    ' affectation
    Set sld = ActivePresentation.Slides(1)
    Set shp = sld.Shapes("MonTableau")
 
    ' ajout d'une image dans une cellule
    shp.Table.Cell(1, 1).Shape.Fill.UserPicture ("C:\Users\Philippe\Pictures\Avatar1.gif")
 
End Sub
Créé le 4 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 ni 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.