Discussion :

[maximelocatelli]

Bonjour,

Je travail avec des SmartArt et j'ai actuellement une Macro qui me permet d'incrémenter un tableau avec le texte rouge contenu dans les formes de mon SmartArt.

Petit exemple pour mieux comprendre :



Pour l'instant voici le code qui permet de réaliser ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim SA As SmartArt
Dim i As Integer
Dim j As Long
 
Set SA = Feuil1.Shapes(1).SmartArt
j = 26
With SA
    For i = 1 To .AllNodes.Count
        With .AllNodes(i).TextFrame2.TextRange
            If .Font.Fill.ForeColor = 255 Then
 
                Feuil1.Cells(j, 2) = .Text
                j = j + 1
            End If
        End With
    Next i
End With
Set SA = Nothing
End Sub

Je travail avec plusieurs couleurs et pour rendre mes supports plus visuel, je souhaiterais réaliser la même Macro mais en prenant en compte la couleur de la forme et non la couleur du texte.

Est-ce que cela est possible ? Comment faire ?

J'attends vos pistes.

Merci d'avance

Ci besoin voici le fichier test que j'utilise :