Comment puis-je colorier un graphique (sumts et arêtes) avec des données Excel?

J'ai un file excel avec principalement 0 et 1 et je veux utiliser cette information pour colorer les sumts et les bords d'un graphique. Donc, comme si une cellule était 0, coloriez le bord gris, mais si la cellule est 1, la couleur est bleue. Et de même pour les sumts.

Quelqu'un peut-il me donner une suggestion sur la façon de procéder? Que dois-je utiliser pour créer le graphique? Et comment puis-je lui dire comment le colorier?

MERCI!

Essayez d'utiliser le graphique D3. Visitez https://d3js.org/
D3 utilise la langue javascript. Vous pouvez vous référer à plusieurs charts.
Même vous pouvez prendre datatables d'input du file excel pour créer des charts dynamics.
Vous pouvez vous référer au graphe réseau D3 pour comprendre comment modifier la couleur du sumt et les arêtes du graphique à partir des données données http://christophergandrud.github.io/d3Network/

Si vous avez les valeurs x et y, vous pouvez les tracer directement sur une feuille de calcul. Voici un exemple qui génère au hasard les coordonnées x et y pour 5 points. Un petit cercle rempli est dessiné à chaque point. Une ligne est dessinée entre le point précédent et le point suivant formant une boucle fermée.

Pour démontrer comment vous pouvez sélectionner les colors de ligne, je les coloris alternativement en gris et en bleu pour vous donner une idée de la façon de les colorier sélectivement en fonction de certains autres critères.

vbBlue est l'une d'une palette de colors prédéfinie (voir ce lien ), c'est pourquoi il ne doit pas être déclaré – contrairement à vbGray.

Option Explicit Sub drawALine(xFrm As Double, yFrm As Double, xTo As Double, yTo As Double, c As Long) With ActiveSheet.Shapes.AddLine(xFrm, yFrm, xTo, yTo).Line .DashStyle = msoLineDashDotDot .ForeColor.RGB = c End With End Sub Sub drawNode(r As Double, x As Double, y As Double, c As Long) With ActiveSheet.Shapes.AddShape(msoShapeOval, x - r / 2, y - r / 2, r, r) .Fill.ForeColor.RGB = c End With End Sub Sub ConnectedOverLappingLoop() Dim xMax As Double, yMax As Double, x1 As Double, y1 As Double Dim xFrm As Double, yFrm As Double, xTo As Double, yTo As Double Dim radius As Double Dim vbGray As Long, clr As Long xMax = 200 yMax = 200 radius = 5 vbGray = RGB(150, 150, 150) xFrm = Rnd() * xMax yFrm = Rnd() * yMax x1 = xFrm y1 = yFrm clr = vbBlue drawNode radius, x1, y1, vbBlue Dim i As Integer For i = 1 To 5: xTo = Rnd() * xMax yTo = Rnd() * yMax drawNode radius, xTo, yTo, vbBlue drawALine xFrm, yFrm, xTo, yTo, clr xFrm = xTo yFrm = yTo If clr = vbBlue Then clr = vbGray Else clr = vbBlue End If Next drawALine xFrm, yFrm, x1, y1, clr End Sub