La détermination de la valeur d'un point dans Excel VBA

Je suis en train d'avoir des points dans un diagramme de changement de couleur s'ils sont dans une certaine valeur supplémentaire (c'est à dire, >1 est vert, <1 est rouge, tout le reste est bleu). Je ne peut pas déterminer comment obtenir VBA pour me donner la valeur de n'importe quel point.

Dans ce fil, déjà répondu, la réponse (très utile dans d'autres façons) indique que les points(num).valeur de retour la valeur du point. Cependant, je reçois un message d'erreur faisant cela, et nulle part ailleurs en ligne ou dans l'aide de VBA puis-je trouver une méthode qui correspond à cela. Quelqu'un d'autre a eu de succès avec cette?

Voici l'extrait de code me donner de la difficulté à:

For Count = 1 To 7
    If Worksheets("Sheet1").ChartObjects("ChartName").Chart.SeriesCollection(1).Points(Count).Value > 1 Then
    '... do stuff

En raison de la façon dont les données sont stockées dans le jeu de données, il serait certainement préférable d'avoir de la valeur à partir du tableau directement. J'ai pu trouver une solution de contournement en utilisant le jeu de données elle-même, mais je préfère éviter.

Quel message d'erreur avez-vous? Pourriez-vous poster une version plus complète de votre code? Aussi, j'ai enlevé vos excuses; c'est en fait un Débordement de Pile règles que si vous avez une nouvelle question, vous devriez poster une nouvelle question au lieu de demander à un existant, si bien sur vous pour que.
Il me dit "Erreur d'Exécution 438: cet Objet ne gère pas cette propriété ou cette méthode". Semble assez simple... j'ai surtout se demander si le même bien existé, simplement avec un nom différent. Il n'y avait pas beaucoup plus du code, car j'ai compris que c'était pour assurer la partie qui était de me donner l'erreur. Je n'ai pas fait la mise en œuvre de la "faire des trucs" pas encore, mais il ne serait même pas ouvert, par exemple, un "msgbox" confirmant qu'il avait passé la ligne. Et par la façon dont, dans ce cas particulier, la valeur du point est en effet supérieure à 1!!

OriginalL'auteur Joe | 2013-02-27

  1. 10
    Sub Tester()

Dim cht As Chart, s As Series, p As Point
Dim vals, x As Integer

    Set cht = ActiveSheet.ChartObjects(1).Chart
    Set s = cht.SeriesCollection(1)

    vals = s.Values

    For x = LBound(vals) To UBound(vals)
      If vals(x) > 10 Then
        With s.Points(x)
            .MarkerBackgroundColor = RGB(255, 0, 0)
            .MarkerForegroundColor = RGB(255, 0, 0)
        End With
      End If
    Next x

End Sub
    C'est incroyable, je vous remercie beaucoup! Je l'ai adapté à ce que je dois faire (lire: compliqué et salis); ce que je ne comprends pas maintenant est pourquoi il est en train de faire ce dont j'ai besoin sur tous, mais une de mes cartes. J'ai posté mon code dans le pastebin.com/yTqEnw01 si vous voulez prendre un coup d'oeil. En gros, c'est le codage de la couleur de chaque graphique correctement, mais le graphique "2" est toujours verte; les couleurs ne changent jamais.
    Difficile à dire sans voir la totalité du classeur: ne vois pas de problèmes évidents avec votre code.
    Je pense qu'il a fini par être un problème avec Excel ne reconnaît pas le titre du graphique. C'est, j'ai nommé les graphiques "1", "2", "3", etc., de sorte que j'ai pu parcourir, mais VBA était comme si je parlais graphique(1) par opposition à la carte("1"). J'ai ajouté un "cas, sélectionnez" cracher un véritable tableau de nom et il a résolu le problème; aussi fait le code plus lisible pour les gens plus novice que moi. Merci pour votre aide; je voudrais upvote mais mon score de réputation n'est pas encore assez!
    Pas de problème: s'il vous plaît "accepter" la réponse (en cliquant sur la coche). Cette aide n'importe qui qui vient plus tard avec une question similaire, à trouver une réponse.
    C'est une honte Point.Value n'existe pas. Cette approche est tout aussi bon une fois que vous le faire par écrit. Utilisé la technique ici pour supprimer des étiquettes de données fondées sur la valeur.

    OriginalL'auteur Tim Williams