changer caption d'un label powerpoint depuis excel

Citronflexe · 12 Octobre 2018

Bonjour à tous,

Je souhaite savoir s'il est possible de modifier la propriété Caption d'un Label ActiveX présent sur une slide d'un Powerpoint, à partir d'un code VBA sur un fichier Excel.

Depuis Powerpoint, j'ai réussi à modifier le Caption d'un Label avec cette ligne de code-là :

VB:

ActivePresentation.Slides(4).Shapes("Label1").OLEFormat.Object.Caption = "Canada"

Ce qui a modifié le Label1 de la 4ème diapositive de ma présentation, comme souhaité.

Je n'arrive pas à adapter ça à mon code VBA sur Excel pour modifier le Caption en fonction d'une cellule d'un classeur ...

Je vous remercie d'avance si vous avez la possibilité de m'aider ! 🙂

Bien cordialement

job75 · 12 Octobre 2018

Bonjour Citronflexe,

La macro dans un module du fichier Excel :

Code:

Sub Modifier_Presentation()
Dim chemin$, present$, PptApp As Object
chemin = ThisWorkbook.Path & "\" 'à adapter
present = "MaPresentation.pptx" 'à adapter
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
With PptApp.Presentations.Open(chemin & present)
    .Slides(4).Shapes("Label1").OLEFormat.Object.Caption = Feuil1.[E3]
End With
End Sub

Fichiers zippés joints, placez le fichier Excel et la présentation PowerPoint dans le même répertoire (le bureau).

A+

Citronflexe · 15 Octobre 2018

Bonjour @job75 , le forum.

Merci beaucoup; je vais adapter ça à mon application !

changer caption d'un label powerpoint depuis excel

Citronflexe

Guest

job75

XLDnaute Barbatruc

Pièces jointes

Citronflexe

Guest

Discussions similaires

changer caption d'un label powerpoint depuis excel

Citronflexe

Guest

job75

XLDnaute Barbatruc

Pièces jointes

Citronflexe

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency