Astuces Excel
  1. Astuces Excel
  3. Coller le graphique généré par Macro à l'location souhaité
Intereting Posts
Comment get des events de souris brutes dans Excel Comment inclure les en-têtes une fois depuis une feuille maîtresse vers une autre feuille Erreur de lancement du code VBA: Erreur d'exécution 1004 Méthode de remplissage automatique Méthode de la plage La class a échoué Si ou déclaration toujours vrai Pour chaque boucle, vous avez besoin de conseils Comment searchr un file xlsx pour une string spécifique en utilisant Python (et peut-être openpyxl) En utilisant VBA pour searchr une plage pour une valeur, et lui faire returnner la colonne de la valeur en tant que variable Les zones de text ne sont pas mises à jour alors que le sous-programme VBA est actif Fonction Bloomberg BHD avec ISIN Supprimer une ligne en utilisant UserForm Erreur de fonction Excel Sumif Déversé le DB principal dans Excel et Mettre à jour les valeurs et les merge en un Comparez deux lists dans excel et trouvez uniques et des dupes Créez un champ calculé à l'aide de valeurs pour créer une trancheuse dans le tableau dynamic Excel Afficher les lignes mises à jour lorsque datatables sont actualisées dans une feuille de calcul Excel

Coller le graphique généré par Macro à l'location souhaité

Je génère un graphique en utilisant macro dans l'location. Cependant, puisque je génère des charts multiples, ils sont empilés les uns sur les autres. Je n'ai pas pu les positionner correctement l'une à côté de l'autre. Comment fait-on ça? Voici mon code: 

Range("A318:A322,B318:B322").Select 'In the active sheet we add a chart ActiveSheet.Shapes.AddChart.Select ' We set the source data for the chart ActiveChart.SetSourceData Source:=Range( _ "'Assessment'!$A$318:$A$322,'Assessment'!$B$318:$B$322") 'We define the type of chart ActiveChart.ChartType = xlColumnClustered ' Before we can perform an action on the chart we need to activate it ActiveSheet.ChartObjects(1).Activate 'We perform the cut operation ActiveSheet.ChartObjects(1).Cut 'we select the Sheet2 where we wish to paste our chart 'Sheets("Sheet2").Select 'We now paste the chart in the Sheet2 whic has become the active sheet after selection 'ActiveSheet.Paste 'we return to sheet1 Sheets("User Report").Select ActiveSheet.Paste ' we select the cell F9 in sheet1 Range("D1").Activate

Comment puis-je coller le graphique dans la cellule souhaitée de mon choix dans la feuille?

Aucune sélection ou activation requirejse: 

 Dim co Set co = ActiveSheet.Shapes.AddChart() co.Chart.SetSourceData Source:=Range("'Assessment'!$A$318:$A$322,'Assessment'!$B$318:$B$322") co.Chart.ChartType = xlColumnClustered co.Cut With Sheets("Sheet2") .Paste Set co = .Shapes(.Shapes.Count) co.Left = .Range("D1").Left co.Top = .Range("D1").Top End With

Sinon, placez le tableau au bon endroit sur la feuille de droite pour commencer. 

 Dim co As ChartObject Set co = Worksheets("Sheet2").Shapes.AddChart(Left:=Worksheets("Sheet2").Range("D2").Left, _ Top:=Worksheets("Sheet2").Range("D2").Top) co.Chart.SetSourceData Source:=Range("'Assessment'!$A$318:$A$322,'Assessment'!$B$318:$B$322") co.Chart.ChartType = xlColumnClustered