Discussion :

[Suits26]

Bonjour,

Je suis nouveau et débutant sur VBA.
J'aimerais créer une maccro qui me permette de copier coller des tableaux et des graphiques de mon excel vers Powerpoint.
J'ai trouvé divers sujet en parlant mais cela ne fonctionne pas.
Par exemple j'ai eu le type de code ci-dessous. Mais je ne le comprends pas entièrement et surtout les Powerpoint.Application etc.. Ne fonctionnent pas dans mon excel et ne sont pas reconnues comme des dim (ce problème parmis d'autres). Seul Application est reconnu.
Pourriez vous m'écrire et m'expliquer une maccro copiant simplement un graphique et quelques cellules dans un powerpoint ?
Je vous remercie pour votre aide.

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
Private Sub Trsft_PowerPoint_Click()
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppShape As PowerPoint.Shape
Dim ppSlide As PowerPoint.Slide
Dim SlideNum As Integer
 
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
    strPresPath = "C:\...ppt"
    strNewPresPath = "C:\...ppt"
 
Set ppApp = CreateObject("PowerPoint.Application")
    ppApp.Visible = msoTrue
Set ppPres = ppApp.Presentations.Open(strPresPath)
 
    Sheets("sheet1").Activate
    Range("B2:R27").Copy
 
Set ppSlide = ppPres.Slides.Add(18, ppLayoutBlank)
    SlideNum = 18
    ppPres.Slides(SlideNum).Select
    ppPres.Slides(SlideNum).Shapes.PasteSpecial ppPasteEnhancedMetafile
    With ppPres.Slides(SlideNum).Shapes(1)
        .IncrementLeft 524#
        .IncrementTop 157.5
    End With
    ActiveWindow.LargeScroll ToRight:=1
    With ppPres.Slides(SlideNum).Shapes(1)
        .ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft
        .ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft
    End With
 
MsgBox "Présentation Créée", vbOKOnly + vbInformation
 
End Sub

[Menhir]

les Powerpoint.Application etc.. Ne fonctionnent pas dans mon excel et ne sont pas reconnues comme des dim (ce problème parmis d'autres).

Dans VBE, faire Outils > Références > Cocher la ligne "Microsoft PowerPoint XX.0 Object Library" (le XX étant la version d'office)

[Suits26]

Ah super déjà ça fonctionne.
Si je peux avoir une petite explication "ligne par ligne" du code VBA ci-dessus ? De manière à l'adapter au miens ? Ce serait super.

En vous remerciant.

Vincent.

[Menhir]

Quand tu ne comprends pas un élément de code, tu cliques dessus pour y placer ton curseur et tu appuies sur la touche F1.
Ca t'ouvrira l'aide VBA correspondant à cet élément.

[Suits26]

Merci bien, je vais essayé d'adapter tout ça seul et reviendrait à l'occasion

[Suits26]

Bon ça n'aura pas duré longtemps, j'ai déjà deux questions :

Comment modifier le titre via vba d'un powerpoint ?
Comment sélectionner un graphique sur excel via VBA sans forcément juste copier les cellules dessous ?

Merci,

Vincent.