Copie de graphiques avec VBA: impossible de supprimer ou de modifier les copies

J'utilise Excel sur MacOS. Les informations "À propos de" me disent qu'il s'agit de la version 16.16.5, qui correspond apparemment à Office 2016. Si vous regardez le code ici et pensez "hé, ça marche pour moi", ce serait formidable si vous pouviez laisser un commentaire qui inclut la version d'Excel que vous utilisez.

J'ai une feuille de calcul dans laquelle je voudrais copier des graphiques d'une feuille de calcul "modèle" dans env. 80 autres feuilles de calcul, puis modifiez-les pour faire référence aux données de la feuille de destination plutôt qu'à la feuille d'origine (via une simple recherche et remplacement sur la série).

Cela ne semble pas à première vue tout cela est difficile, et il y a beaucoup de solutions potentielles à la fois ici sur Stack Overflow et ailleurs, mais je semble continuer à rencontrer un comportement inattendu.

Pour les exemples ci-dessous, le code copie simplement les graphiques d'une feuille de calcul vers un autre, plutôt que d'itérer sur toutes les feuilles de calcul disponibles, car cela facilite le nettoyage en cas d'échec. Ce qui, jusqu'à présent, l'est toujours.

Tentative n ° 1

Ma première tentative ressemblait à ceci:

        For Each chSeries In newChartObj.Chart.SeriesCollection

Cela fonctionne presque : il copie en fait les graphiques dans la feuille de calcul de destination. Cependant, il échoue à cette ligne:

Sub Copy_Charts()
    Dim DataSheetName1 As String, DataSheetName2 As String
    Dim sourceChartSheet As Worksheet, destChartSheet As Worksheet
    Dim chartObj As ChartObject, newChartObj As ChartObject
    Dim chartObjCopy As ChartObject
    Dim chSeries As Series
    Dim chartIndex As Integer

    DataSheetName1 = "CU-2"
    DataSheetName2 = "CU-8"

    Set sourceChartSheet = Sheets("CU-2")
    Set destChartSheet = Sheets("CU-8")

    For Each chartObj In sourceChartSheet.ChartObjects
        ' No idea why chartObj.Duplicate returns something other
        ' than a ChartObject.
        Set newChartObj = chartObj.Duplicate.Chart.Parent
        newChartObj.Top = chartObj.Top
        newChartObj.Left = chartObj.Left
        newChartObj.Chart.Location xlLocationAsObject, destChartSheet.Name

        For Each chSeries In newChartObj.Chart.SeriesCollection
            chSeries.FormulaR1C1 = Replace(chSeries.FormulaR1C1, DataSheetName1, DataSheetName2)
        Next

    Next chartObj

End Sub

L'erreur est "Erreur d'exécution '1004': Erreur définie par l'application ou définie par l'objet".

Et en fait, si vous regardez destChartSheet.ChartObjects.Count à ce stade, il s'affiche toujours comme 0 . De plus, si vous essayez de supprimer les graphiques en utilisant un code comme celui-ci:

Sub Delete_Charts()
  Dim sht As Worksheet

  For Each sht In ActiveWorkbook.Worksheets
      If sht.Name <> "CU-2" Then
      If sht.ChartObjects.Count >= 1 Then
              sht.ChartObjects.Delete
              End If
      End If
  Next sht
End Sub

Cela ne supprimera pas réellement les graphiques. Le même code de suppression fonctionne très bien si vous copiez et collez les graphiques à la main.

En résumé: ce code copie les graphiques, mais je ne peux pas obtenir de référence à la copie afin de le modifier , je ne peux pas non plus le supprimer.

Tentative n ° 2

J'ai décidé de lancer le copier-coller hors de la fenêtre et d'essayer la méthode Duplicate à la place. Je me suis retrouvé avec ce qui suit:

        Set chartObjCopy = destChartSheet.ChartObjects(chartIndex)

Cela fonctionne (et échoue) différemment de la première solution: il copie aussi les graphiques dans la feuille de calcul cible , et contrairement à l'exemple précédent, il est possible de supprimer ces graphiques en utilisant cette sous-routine Delete_Charts .

Malheureusement, ce code échoue à:

Sub Copy_Charts()
  Dim DataSheetName1 As String, DataSheetName2 As String
  Dim chartObj as ChartObject, chartObjCopy as ChartObject
  Dim sourceChartSheet as Worksheet, destChartSheet as Worksheet

  DataSheetName1 = "CU-2"
  DataSheetName2 = "CU-8"

  Set sourceChartSheet = Sheets(DataSheetName1)
  Set destChartSheet = Sheets(DataSheetName2)

  For Each chartObj In sourceChartSheet.ChartObjects

          chartObj.Copy
          destChartSheet.Range(chartObj.TopLeftCell.Address).PasteSpecial xlPasteAll
          chartIndex = chartIndex + 1
          Set chartObjCopy = destChartSheet.ChartObjects(chartIndex)
          chartObjCopy.Left = chartObj.Left
          chartObjCopy.Top = chartObj.Top
  Next chartObj

End Sub