[PPT-2010] bordures de cellule de tableau sous powerpoint 2010

[JJ75000]

Bonjour,
J'arrive à créer des bordures de cellules dans un tableau sous Powerpoint.
En revanche pour des bordures déjà modifiées je ne sais pas comment accèder aux propriétés de la cellule pour voir quelles sont les caractéristiques de sa bordure.
Par exemple, je reçois un tableau dans lequel une cellule est entourée en violet, avec un trait gras et en pointillé. Je voudrais avoir les caractéristiques exactes de la couleur (ce n'est pas le violet standard), de la taille du trait et du type de pointillé afin de pouvoir le reproduire sur d'autres cellules du tableau .... Impossible d'y arriver!
Quelqu'un saurait-il comment faire?
Merci d'avance,

[Philippe JOCHMANS]

Bonjour

Personnellement je ne vois pas comment on peut faire, à part avec l'icone "Reproduire la mise en forme".

Cependant, si tu veux des chose précise, il y a le VBA, mais je ne sais pas si tu connais.

Par exemple un petit code que je viens de faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub RecupFormatageTableau()
    '---------------------------------------------------------------------------------------
    ' Procedure      : RecupFormatageTableau
    ' Auteur         : Philippe JOCHMANS - http://starec.developpez.com
    ' Date           : 10/11/2011
    ' Commentaires   : Récupération des éléments de formatage d'un tableau
    '---------------------------------------------------------------------------------------
 
    ' déclaration
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
    Dim intRow As Integer           ' nombre de lignes du tableau
    Dim intCol As Integer           ' nombre de colonnes du tableau
    Dim strResult As String
 
    ' affectation
    Set objPres = ActivePresentation
    Set objSld = objPres.Slides(1)      ' dans notre cas le tableaau est sur la première diapositive
 
    ' on parcours la liste des formes de la diapositive pour trouver le tableau
    For Each objShp In objSld.Shapes
        If objShp.Type = msoTable Then
            ' on parcourt les colonnes
            For intCol = 1 To objShp.Table.Columns.Count
                ' on parcourt les lignes
                For intRow = 1 To objShp.Table.Rows.Count
                    strResult = "Colonne : " & intCol & "  -  Ligne : " & intRow & vbCrLf
                    strResult = strResult & "Hauteur trait bas : " & objShp.Table.Cell(intRow, intCol).Borders(ppBorderBottom).Weight & vbCrLf
                    strResult = strResult & "Couleur trait bas : " & objShp.Table.Cell(intRow, intCol).Borders(ppBorderBottom).ForeColor.RGB
                    MsgBox strResult
 
                Next intRow
            Next intCol
        End If
    Next objShp
 
End Sub

Ce code est à mettre dans un module, et à lancer en cliquant sur la touche F5 (le curseur étant dans la procédure).

Le code affiche les données de la ligne basse d'une cellule d'un tableau qui se trouve dans la première diapositive du diaporama.

Bien sûr, ce n'est qu'un exemple, incomplet, mais une piste de départ.

Philippe

[JJ75000]

Bonjour,

Merci pour le retour rapide et l'astuce suggérée.
J'avais bien pensé à utiliser l'icone "Reproduire la mise en forme" mais cela ne fonctionne pas ... Je me suis positionné sur la cellule avec la mise en forme à reproduire, ai cliqué sur l'icone et me suis positionné sur la cellule que je souhaitais modifier ... rien
Y a t il une certaine façon de l'utiliser dans ce cas?
Merci

[Philippe JOCHMANS]

Re

je suis aussi coincé que toi.

A part la solution code VBA pour récupérer les infos, je ne vois pas comment faire

Philippe