Discussion :

[rampage92]

Bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub copyChartToPPT()


Dim ChtObj As ChartObject

Dim PP As PowerPoint.Application
Dim PPpres As PowerPoint.Presentation

' Get chart object.
With ThisWorkbook.Sheets("STAT01")
    Set ChtObj = .ChartObjects("Chart 1")
    With ChtObj
        .Copy
    End With


    'Create a PP application and make it visible.
    Set PP = New PowerPoint.Application
    PP.Visible = msoCTrue
    'Open the presentation you wish to copy to.
    Set PPpres = PP.Presentations.Open("W:\A\AMSR\Business\WISE\esg_portfolio_analytics\visualization\TMPL_EMBED.pptx")
    
    'And paste it on the 1st slide.
    'PP.ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault
    'PPpres.Slides(1).Shapes.PasteSpecial ppPasteDefault
    'PPpres.Slides(1).Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse
    'PP.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse
    'PPpres.Slides(1).Shapes.PasteSpecial ppPasteOLEObject
    PP.CommandBars.ExecuteMso "PasteExcelChartDestinationTheme"
    '"PasteExcelChartSourceFormatting"
End With

Set PP = Nothing
Set PPpres = Nothing

End Sub

Je voudrais savoir comment placer le chart ou je veux sur le powerpoint.

Avez vous des idées

merci d'avance

[78chris]

Bonjour

Aujourd'hui le masque de diapositive, a comme frame principal un frame multiusage donc le plus simple est de la coller là...

[rampage92]

Il n'y donc pas la possibilité de la coller a l'endroit souhaité ?

[78chris]

RE

C'est quoi l'endroit souhaité ?

Quand on travaille correctement dans Powerpoint on utilise les shapes du masque : il y a une shape du titre et une ou deux shapes de contenu selon la disposition choisie

On utilise donc ces shapes quitte à les redimensionner éventuellement