VBA Créer une zone de texte dans ppt
Bonjour,
J'ai dans mon fichier excel une cellule où je marque des données textes et chiffrées.
Je souhaite ensuite ouvrir mon powerpoint, créer une zone de texte et y copier les données de cette cellule.
Pour cela, j'ai trouvé ce code mais j'ai un message " Erreur d'éxécution '429': Un composant ActiveX ne peut pas créer d'objet " qui apparaît au niveau la ligne en gras. Pouvez vous m'aider?
Merci
Code:
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
|
Sub texteppt()
'déclaration des variables
Dim xlSheet As Excel.Worksheet
Dim shpTexte As Shape
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("LIEN SOURCE.pptx") 'ouverture fichier ppt
'ouverture du fichier Excel
Set xlSheet = Sheets("ppt")
' on crée une zone de texte
Set shpTexte = ActivePresentation.Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 200, 50)
With shpTexte.TextFrame.TextRange
.Font.Bold = msoTrue
.Font.Size = 20
.Text = xlSheet.Range("B2").Value
End With
End Sub |
