mise en page de graphs

[fred]

Bonjour,

après de lancement de macros, plusieurs graphs se créent et sont empilés les uns sur les autres dans une feuille "résumé"

je voudrais refaire la mise en page des graphs
mais le problème est que l'instruction ci-dessous prend en compte le nom du graph et que ce numéro de graph change a chaque fois que je lance la macro, donc l'objet n'est pas trouvable:

ActiveSheet.Shapes("Graphique 336").IncrementLeft -183.75

pouvez vous m'aider,

merci

 

[michel]

bonsoir Fred

j'espere que ce lien pourra t'aider


Lien supprimé


bonne soiree
MichelXld

 

[Celeda]

Bonsoir Le Forum,


En tout cas moi il m'aide bien Michel et merci, mais si je te demandais et je rejoins le fil plus haut concernant l'exportation dans un fichier PPT que tu as solutionné,

si on reprend l'exemple de ces trois graphs qui se repositionnent dans un fichier xls, si on voulait les copier coller de la même dimension dans la slide 28 du fichier Celeda0501.ppt, deux en haut et un en bas centré, il faudrait faire comment ? svp.

(et j'espère que je ne ne t'embête pas avec cette question mais je commence à m'interesser sérieusement à automatiser des copier coller répétitifs et si mydearfriend semble être associé aux cellules clignotantes, toi, mimi, ce sont les graphs qui te collent à la macro!!!lol!!)

à l'avance merci si tu peux me répondre

 

[michel]

bonsoir Celeda

j'espere que cette macro répondra à ta demande
la procedure boucle sur les 3 premiers graphiques de la feuille active et les colle/repositionne dans le 28eme slide PowerPoint
c'est un peu bricolé et tu auras peux etre quelques adaptations à apporter


Sub insertionGraphiqueDansPowerPoint_V02()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte, i As Byte
Dim EspaceH As Single, Largeur As Single, Hauteur As Single, posV As Single

Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("C:\Celeda0501.ppt") 'ouverture fichier ppt
Largeur = 350 'largeur shapes collé dans powerpoint
Hauteur = 300 'hauteur shapes collé dans powerpoint
EspaceH = (PptDoc.PageSetup.SlideWidth - (Largeur * 2)) / 3
posV = 50 'position verticale dans le slide

For i = 1 To 3 'boucle sur les 3 premiers graphiques de la feuille active
ActiveSheet.ChartObjects(i).Copy 'copie du Graphique
PptDoc.Slides(28).Shapes.Paste 'collage dans le Slide du document Power Point

'compte le nombre de shapes dans le slide
'le dernier objet inséré correspond à l'index le plus élevé
NbShpe = PptDoc.Slides(3).Shapes.Count

If i < 3 Then 'personnalisation des 2 premiers collages
With PptDoc.Slides(28).Shapes(NbShpe)
.Name = "monGraph" & i 'personnalise le nom de l'image inseree
.Left = EspaceH + ((Largeur + EspaceH) * (i - 1))
.Top = posV 'position verticale dans le slide
.Height = Hauteur 'hauteur image
.Width = Largeur 'largeur image
End With

Else 'personnalisation du 3eme collage

With PptDoc.Slides(28).Shapes(NbShpe)
.Name = "monGraph" & i 'personnalise le nom de l'image inseree
.Left = (PptDoc.PageSetup.SlideWidth - Largeur) / 2
.Top = Hauteur 'position verticale dans le slide
.Height = Hauteur 'hauteur image
.Width = Largeur 'largeur image
End With

End If

Next i

'PptDoc.Save 'sauvegarder les modification
'PptDoc.Close 'fermer le document
'PPT.Quit 'fer l'application powerPoint
End Sub


je te souhaite une tres bonne soirée
MichelXld

 

[Celeda]

Bonsoir Le Forum,


Michel,

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[/center]

regarde dans quel état je suis,
tu vois quel effet
tu me fais
et du fond du coeur, c'est le cas de le dire,........merci !!!!!!!!!!!​

je teste demain et je te tiens au courant et si cela fonctionne bien, youppi!!!!!fini les copy paste et les ajustements à la mimine !!!!!!!!!


Celeda



&nbsp;&nbsp;&nbsp;

 

[Celeda]

Bonjour,

Je confirme MichelXLD, alias MiMi : tout fonctionne parfaitement
mais cette maudite référence m'a posé de gros problèmes;

Merci beaucoup.

Celeda