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:
En espérant que ca en aidera quelques uns
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
Bubus31
Partager