Discussion :

[minimoack]

Bonjour,
j'ai encore un problème...

Comment créer une zone de texte dans powerpoint grace à une macro excel?

voici mon code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Function ppt()
 
    Dim ppapp As PowerPoint.Application
    Dim Presentation As PowerPoint.Presentation
    Dim Diapo As PowerPoint.Slide
    Dim sld As PowerPoint.Slide
    Dim shp As Shape
 
    Set ppapp = CreateObject("Powerpoint.application")
 
    ppapp.Activate
 
    Set Presentation = ppapp.Presentations.Add
 
    With Presentation
        .Slides.Add Index:=1, Layout:=ppLayoutBlank
 
        ' affectation à l'objet slide la première diapositive de la présentation en cours.
        Set sld = ActivePresentation.Slides(1)
 
        ' création de la zone de texte
        Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 300, 50)
 
        'ajout du texte
        With shp.TextFrame.TextRange
            ' ajout du texte
            .Text = "Excel et Powerpoint"
            ' modification de la police
            .Font.Name = "Arial"
            ' modification de quelques attributs
            .Font.Bold = msoTrue
            .Font.Size = 72
        End With
        Set Diapo = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)
 
        ' Copie du graphe
        Workbooks("Comparaison.xls").Sheets("Comparaison de la taille").Activate
        ActiveSheet.ChartArea.Select
        ActiveSheet.ChartArea.Copy
 
        ' On colle le graphe dans la présentation et on le redimensionne
        Set oShape = Diapo.Shapes.Paste
        oShape.Top = 20
        oShape.Left = 20
        oShape.Width = 430
        oShape.Height = 430
    End With
 
End Function

pour l'ajout du texte, j'ai trouvé le code ici :
http://powerpoint.developpez.com/faq/?page=V-C
Mais il me met une erreur sur la ligne 19...

le composant activex ne peut créer l'objet

...
où est l'erreur?

merci

[minimoack]

J'ai essayé cela :

Code :

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

1
2
3
Set sld = .Slides.Add Index:=1, Layout:=ppLayoutBlank
 
        Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 300, 50)

Mais du coup il me met

Incompatibilité de type

sur la deuxième ligne...