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→Tableau
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 SubCréé 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 SubCréé le 4 août 2009 par Philippe JOCHMANS