1004 Erreur d'exécution sur l'ajout graphique Excel

Tenir compte de ce code:1004 Erreur d'exécution sur l'ajout graphique Excel

Subroutine(ByRef objExcelApp As Object) 

Dim objChart As Excel.Chart<br> 
Dim objChartAdd As Excel.Chart 


Set objChart = Charts.Add 

'Plotting graph in excel 

'After completion 
Set objChart = Nothing 

End Sub

Quand je lance ce code, tout fonctionne bien, et sans application fermeture si réexécuter avec un autre type de rapport - il demande une erreur 1004 à Set objChart = Charts.Add

Toute aide, n'importe qui peut fournir sera grandement appréciée.

Source

2011-02-09 tangyorangesour

Besoin de plus de détails. Le code affiché ne compile pas. Heading devrait être quelque chose comme Sub YourSubName (...) Dim objChart ...
n'est pas valide. –

Pouvez-vous ajouter un graphique dans l'interface utilisateur? Je parie que vous êtes dans une situation où un graphique ne peut pas être ajouté (plusieurs feuilles sélectionnées, classeur non activé, plage protégée active, etc).

Chris

Source

2011-02-09 22:48:57

Bonjour Chris, je lance l'application (première exécution) et l'exécute - à ce moment je suis capable de générer les graphiques sur la feuille Excel. Lorsque je le relance sans redémarrer l'application, cette erreur apparaît, je suis très nouveau pour elle - alors pouvez-vous s'il vous plaît me dire comment puis-je tracer les erreurs - oui vous avez raison, je suis incapable d'ajouter le graphique – tangyorangesour

Mon plan serait: Exécuter la macro au point où elle se casse. Ensuite, arrêtez le débogueur, revenez dans Excel et essayez de cliquer sur "Insérer un graphique". Si le bouton est désactivé, vérifiez si vous pouvez déterminer pourquoi dans Excel. Si vous voyez un message d'erreur, cela devrait aussi aider. Si cela fonctionne et que vous pouvez insérer un graphique, nous avons un problème différent! –

Salut Chris, Ce n'est pas une macro, c'est un programme VB. C'est un bon conseil que vous venez de partager - merci :) Je viens de corriger le bug - l'instruction nécessaire Set objchart = (EXCELOBJECT) .charts.add Maintenant, ma question est, si elle a couru avec succès pour la toute première course et ensuite échoué dans la répétition, quelle raison logique justifie son succès dans la première manche? et pourquoi il a échoué plus tard. Si quelqu'un pour partager s'il vous plaît leurs connaissances concernant la même chose, serait vraiment apprécié. – tangyorangesour

1004 Erreur d'exécution sur l'ajout graphique Excel

Répondre

Questions connexes