macro vba pour graphique

Question

bonjour

j'ai des macros pour construire des graphiques mais je voudrais modifier

la taille de ces graphiques (+ grands) dans la macro elle même.

bien sûr on peut les agrandir après la fin de la macro .

 ce n'est pas ce que je cherche.

En construisant une nouvelle macro  pour l'insérer dans les macros il

y a une référence à un n° de graphique qui change constamment.

comment faire ?

merci pour une info .

mortalino · Answer

Salut,

Adapte ceci : 

ActiveSheet.Shapes("Graphique 1").ScaleWidth 1.05, msoFalse, _
        msoScaleFromTopLeft

ScaleWidth 1.05 correspond à un agrandissement de 5%

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

michelxld · Answer

bonsoir

tu peux identifier le dernier graphique créé en comptant le nombre de graphique dans la feuille.
le nouveau graphique correspond à l'index le plus élevé

    Dim NbGraph As Byte
    
    Charts.Add ' ajout graphique
    With ActiveChart
        .ChartType = xlLine
        .SetSourceData _
            Source:=Sheets("Feuil1").Range("A1:B10"), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="Feuil1"
    End With
    
    'compte le nombre de graphiques dans la feuille
    NbGraph = ActiveSheet.ChartObjects.Count
    'le nouveau graphique correspond à l'index le plus élevé
    With ActiveSheet.ChartObjects(NbGraph)
        .Name = "Le nom du Graphique"
        .Width = 450
        .Height = 290
    End With

bonne soiree
michel

cs_arose · Answer

merci

c'est bien ça

je n'ai pas encore tout compris mais ça va venir !

difficile à deviner 

j'ai une quinzaine de grosses macros à modifier

je ne me voyais pas les refaire toutes 

merci encore

Macro vba pour graphique

3 réponses

Votre réponse

Discussions similaires