Le graphique ne sera pas mise à jour dans Excel (2007)

C'est la seule chose que j'ai trouvé de toujours mettre à jour un tableau. Il coupe la cause racine du problème (je suppose): la série de données est mise en cache dans le graphique. En forçant le graphique de réévaluer la série, nous sommes effacer le cache.

' Force the charts to update
Set sht = ActiveSheet
For Each co In sht.ChartObjects
    co.Activate
    For Each sc In ActiveChart.SeriesCollection
        sc.Select
        temp = sc.Formula
        sc.Formula = "=SERIES(,,1,1)"
        sc.Formula = temp
    Next sc
Next co

J'ai eu le même problème avec un simple graphique.

Aucun des macros que j'ai essayé. Rien n'a fonctionné sur cut, pasting, relocating graphique.

La solution de Contournement que j'ai trouvé a été de modifier le texte du graphique, enlever les étiquettes, puis re-sélectionner les étiquettes. Une fois qu'ils ré-apparu, ils ont été mis à jour.

Cela fonctionne très bien pour moi, il retourne axes sur toutes les cartes, puis retourne en arrière, ce qui les amène à actualiser sans changer la à tous.

'Refresh all charts
For Each mysheet In ActiveWorkbook.Sheets
    mysheet.Activate
    For Each mychart In ActiveSheet.ChartObjects
        mychart.Activate
        ActiveChart.PlotArea.Select
        ActiveChart.PlotBy = xlRows
        ActiveChart.PlotBy = xlColumns
        ActiveChart.PlotBy = xlRows
    Next
Next

J'ai un autre problème de refeshing graphiques. Lors de la génération des graphiques automatiquement, certains graphiques s'affichent plus et cache le texte dans la feuille. Il arrive à être un problème de rafraîchissement de la générées graphiques. Quand j'ai effectuer un zoom avant ou un zoom arrière, je peux obtenir les résultats escomptés. Donc je poste ici la solution si ça l'intérêt de quelqu'un.
Par programmation, j'ai ajouté ce après la génération de graphiques :

ActiveWindow.Zoom = ActiveWindow.Zoom + 1
ActiveWindow.Zoom = ActiveWindow.Zoom - 1

Ce problème est ridicule! Pas une solution a fonctionné pour moi en 2010, mais j'ai basé le mien hors de tpascale de l':

Dim C As ChartObject
Set C = ActiveSheet.ChartObjects("CTR_Chart")
C.Chart.SetSourceData Source:=Range( _
    "KeywordBreakdown!$A$8:$A$12,KeywordBreakdown!$E$8:$E$12")

Simplement redéfini la Source de la plage de Données. Si c'est une plage nommée, qui pourrait être raisonnablement propre. Je suppose que la meilleure solution pour cela est de continuer à essayer de modifier les différentes propriétés du diagramme jusqu'à ce qu'il actualise.

J'ai eu ce problème et trouvé que c'était causé par le fait d'avoir deux applications excel en cours d'exécution au même moment. Si j'ai tout fermé et ouvert juste le fichier j'ai eu des problèmes avec les cartes dynamiques comme ils devraient l'être. Peut-être que cela aide

Cela a fonctionné pour moi, il coupe et re-colle les cartes sur la feuille de calcul active. J'ai basé cette off de Jason code et d'un post de blog j'ai trouvé dans une recherche rapide sur Google.

Sub RepasteCharts()

Dim StrTemp As String
Dim IntTempTop As Integer
Dim IntTempLeft As Integer


Set sht = ActiveSheet

For Each co In sht.ChartObjects
    'Activate the chart
    co.Activate

    'Grab current position on worksheet
    IntTempTop = ActiveChart.Parent.Top
    IntTempLeft = ActiveChart.Parent.Left

    'Cut and paste
    ActiveChart.Parent.Cut
    ActiveSheet.Paste

    'Reposition to original position
    ActiveChart.Parent.Top = IntTempTop
    ActiveChart.Parent.Left = IntTempLeft
Next co


End Sub

Viens de passer une demi-journée sur moi-même.

J'ai une macro qui modifie les valeurs qui sont les données d'un graphique. Tout a bien fonctionné dans Excel 2003, mais dans Excel 2007, le graphique semble perdre toute connexion à ses données, bien que de modifier manuellement les valeurs de données dans les deux colonnes déclenché un recalcul.

Ma solution a été de faire de toutes les cartes sur la feuille active invisible avant que le changement dans les données, puis de les rendre à nouveau visible et de l'appeler graphique d'actualisation pour faire bonne mesure. ( Il semble que pour être visible des tableaux qui ont ce problème de mise à jour ).

Cela fonctionne pour moi, et gère également à des problèmes similaires avec des graphiques ainsi que des objets de graphique. L'actualisation peut ne pas être nécessaire - des tests supplémentaires sont nécessaires.

Dim chrt As Chart
Dim chrtVis As XlSheetVisibility
Dim sht As Worksheet
Dim bChartVisible() As Boolean
Dim iCount As Long

Dim co As ChartObject

On Error Resume Next

Set chrt = ActiveChart

If Not chrt Is Nothing Then
        chrtVis = chrt.Visible
        chrt.Visible = xlSheetHidden
        End If

Set sht = ActiveSheet

If Not sht Is Nothing Then
        ReDim bChartVisible(1 To sht.ChartObjects.Count) As Boolean
        iCount = 1
        For Each co In sht.ChartObjects
            bChartVisible(iCount) = co.Visible
            co.Visible = False
            iCount = iCount + 1
            Next co
        End If

FAIRE DE LA MACRO TRUCS QUI MODIFIE DES DONNÉES

If Not sht Is Nothing Then
        iCount = 1
        For Each co In sht.ChartObjects
            co.Visible = bChartVisible(iCount)
            co.Chart.Refresh
            iCount = iCount + 1
        Next co
        End If

If Not chrt Is Nothing Then
        chrt.Visible = chrtVis 
        chrt.Refresh
        If chrt.Visible Then
            chrt.Select
            End If
        End If

On Error GoTo 0

J'ai connu le même problème avec mon travail la semaine dernière quand j'ai ajouté un peu plus de calcul à ma feuille. Après cela, à l'aide de boutons radio pour sélectionner les données à être présentés sur les graphes ne pas mettre à jour les graphiques plus.

La meilleure explication que j'ai pu trouver jusqu'à présent est ceci:
http://support.microsoft.com/kb/243495

Si j'ai bien compris il est bon, si il y a plus de 65536 formules qui ont une autre cellule comme une référence dans votre fichier, Excel démarre à optimiser le calcul et, dans certains cas, les graphiques ne sont pas mis à jour correctement plus.

Si il existe une solution de contournement pour ce sans l'aide de macros VBA, je serais heureux d'entendre que (ne peut pas les utiliser comme les fichiers doivent être partagées par le biais de SharePoint sans macros VBA).

J'ai eu le même problème pendant le travail par le biais d'un tutoriel (très frustrant quand vous suivez ces étapes et de ne pas obtenir le résultat escompté).

Le tutoriel pour créer un graphique en secteurs me voulait pour sélectionner la gamme A3:A10, puis sélectionnez également la non-adjacents gamme E3:E10. Je l'ai fait. J'ai eu le graphique.

Il m'a alors demandé de modifier une valeur, et montre la variation en pourcentage, puis de regarder le graphique à secteurs et de voir la mise à jour.

Il n'a pas de mise à jour.

J'ai regardé la source de données pour le graphique à secteurs, et la plage était bizarre. Il avait l' A3:A10 gamme notés correctement, mais le E10 référence de cellule répété plusieurs fois, et il y avait de la E cellules énumérés dans un ordre aléatoire. Il ressemblait à

=SERIES(,(Revenue!$A$3:$A$10,Revenue!$E$3,Revenue!$E$10,Revenue!$E$10,Revenue!$E$10,Revenue!$E$10,Revenue!$E$10,Revenue!$E$9,Revenue!$E$8,Revenue!$E$7,Revenue!$E$6,Revenue!$E$5,Revenue!$E$4),1

J'ai changé la source de données à lire:

=SERIES(,Revenue!$A$3:$A$10,Revenue!$E$3:$E$10,1)

Le problème est résolu. C'est parfois une question de nettoyer votre code pour le calcul du processeur a moins à trier par.

Cela peut paraître très basique, mais j'ai juste essayé de Manuel de Calcul sur la feuille de calcul où les tableaux ont été (en appuyant sur F9) et cela a fonctionné! Tha code VBA pour c'est simplement:

Calculer

😉

Mes deux cents pour ce problème, j'ai eu un problème similaire avec un graphique sur un Accès à un rapport de 2010. J'ai été dynamiquement la construction d'un objet querydef, paramètre que le contenu (rowsource) sur mon rapport et d'essayer d'en boucle dans chaque série et définissez les propriétés de chaque série. Ce que j'ai finalement eu à faire était de sortir l'objet querydef création et le paramètre de la propriété pour séparer les sous-marins. En outre, j'ai mis un

SendKeys ("{DOWN}")
SendKeys ("{UP}")

au bas de chacune des deux sous-marins.

J'ai eu un problème similaire, - les Graphiques ne semble pas de mise à jour. J'ai essayé à peu près tout sur ce fil avec pas de chance. J'ai finalement réalisé que les tableaux que j'ai été copiant et collant, sont reliés à la source de données, et c'est pourquoi ils étaient tous de montrer les mêmes résultats.

Assurez-vous de copier et coller les photos avant de vous passer à travers toutes les autres motions....

J'ai eu un problème similaire aujourd'hui avec un fichier 2010 avec un grand nombre de formules et de plusieurs connexions de base de données. Le graphique axe qui n'étaient pas de mise à jour des références des gammes avec les colonnes masquées, semblable à d'autres dans cette chaîne, et les étiquettes affiche le mois et l'année "MMM-YY" de la dynamique de données. J'ai essayé toutes les solutions à l'exception de l'VBA options que je préfère résoudre sans code.

J'ai été en mesure de résoudre les problèmes en les encapsulant mes dates (les étiquettes de l'axe) dans une formule de TEXTE en tant que tel: =TEXTE(A10,"MMM-YY"). Et tout, tout de suite les mises à jour lors de la modification des valeurs. Jours heureux à nouveau!!!

De lire les autres contributeurs questions ci-dessus, j'ai commencé à penser que les Cartes ont des problèmes avec le type de données de DATE plus précisément, et donc de la conversion des valeurs de texte avec le TEXTE de la fonction résolu mon problème. J'espère que cela peut vous aider. Il suffit de changer le format de l'intérieur de guillemets doubles (deuxième argument de la fonction de TEXTE) pour répondre à vos besoins.

Pour moi, la macro n'a pas de mise à jour de l'axe des x pour toutes les séries, mais seulement le premier. La solution que j'ai trouvé a été de mettre à jour l'axe des x pour toutes les séries et puis il refrehsed (aussi, j'ai eu le code pour modifier le format de l'axe des x, mais je ne pense pas que c'était le problème).

ActiveSheet.ChartObjects("Diagram 7").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.SeriesCollection(1).XValues = "={""""}"
ActiveChart.SeriesCollection(1).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(2).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(3).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(4).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(5).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(6).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(7).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(8).XValues = "=YYY!$BQ$85:$BQ$8844"

Plein macro;

Sub TEST()
'
' TEST Makro
'
ActiveSheet.ChartObjects("Diagram 7").Activate
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "@"
ActiveSheet.ChartObjects("Diagram 7").Activate
ActiveChart.SeriesCollection(1).XValues = "={""""}"
ActiveChart.SeriesCollection(1).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(2).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(3).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(4).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(5).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(6).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(7).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.SeriesCollection(8).XValues = "=YYY!$BQ$85:$BQ$8844"
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).TickMarkSpacing = 730
ActiveChart.Axes(xlCategory).TickLabelSpacing = 730
End Sub

Pour mettre à jour un tableau il suffit de mettre un Sheets("Feuil1").Calculer dans votre sous-procédure. Si vous avez plus de cartes sur les différents onglets, puis il suffit de créer une feuille de calcul de la boucle.

J'ai trouvé que par la création du graphique dans une feuille de calcul distincte toutes les mises à jour s'appliqueront. HTH