Bonjour,

en fait ce post reprend ma question précédente sur 'colorier le fond d'une forme dans un diagramme automatique' et voilà une réponse alternative que j'ai trouvé et que je fais partager: au lieu de colorier la forme d'un élément du diagramme, je colorie son texte et j'en profite pour ajouter le texte que je veux. Voici le code:
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Function numero_noeud() As Integer
'déterminer le nombre de procédures avales
numero_noeud = InputBox("Quelle élément souhaitez-vous placer en mode spécifique?")
End Function
 
Sub cas_specifique_diagramme()
 
Dim oShp As Shape
Dim oDgm As Diagram
 
 
On Error Resume Next
 
' Assuming that the selected shape is a diagram
  Set oShp = ActiveWindow.Selection.ShapeRange(1)
  Set oDgm = oShp.Diagram
 
  ' To get the text of the current node
With oDgm.Nodes(numero_noeud).TextShape.TextFrame.TextRange
 
    'Add text to node.
         .Text = "cas spécifique"
 
     'Format new text as specified.
         With .Font
            .Bold = True
            .Italic = blnItalic
            .Size = 8
            .Color.SchemeColor = ppBackground
 
 
        End With
   End With
 
End Sub
En espérant que ca en aidera quelques uns

Bubus31