Référencement d'une feuille Excel placée dans PowerPoint

Question

J'ai ajouté une feuille Excel dans un document PowerPoint 2010 à l'aide de l'option Insérer un onglet -> Objet -> Feuille de calcul Microsoft Excel 97-2003 (Créer nouveau). Je veux référencer certaines des cellules de la feuille Excel dans une autre diapositive de ma présentation PowerPoint. Y a-t-il un moyen de faire cela?

Le but est d'avoir un client qui insiste sur un rapport PPT, sauf que j'ai besoin d'utiliser Excel pour créer l'information requise. Plutôt que d'avoir constamment deux documents ouverts et de transférer l'information de la feuille Excel vers la diapositive PPT, je voulais consolider en un seul document, donc la feuille Excel ajoutée dans le fichier PPT.

Je ne suis pas un expert en VBA par tous les moyens, mais j'en connais assez pour me débrouiller si j'ai besoin d'utiliser VBA pour y parvenir.

J'ai téléchargé des photos d'un exemple (j'espère). Sur la diapositive 1, j'ai trois cellules remplies en utilisant la feuille Excel insérée. La diapositive 2 est l'endroit où je dois faire référence à ces cellules (les zones de texte avec le texte en rouge). L'information dans ces cellules changera semaine après semaine et j'ai besoin des zones de texte dans la diapositive 2 pour mettre à jour avec elle. Toute aide serait appréciée.

Answer 1

Utilisez le volet Sélection dans PowerPoint pour identifier le nom de l'objet incorporé, et le référencer, puis utilisez le OLEFormat.Object pour obtenir une poignée sur l'objet Workbook, et à partir de là que vous êtes juste travailler avec une instance de Excel.Workbook classe, de sorte que tous vos familiers propriétés Excel & méthodes devraient être disponibles:

Option Explicit 
'Requires reference to Excel 
Sub populate_text_box() 
Dim obj As Object 
Dim tb As Shape 'TextBox 
Dim wb As Excel.Workbook 
Dim ws As Excel.Worksheet 
Set obj = ActivePresentation.Slides(1).Shapes("Object 3") 


Set wb = obj.OLEFormat.Object 
Set ws = wb.Sheets(1) 

Set tb = ActivePresentation.Slides(2).Shapes("TextBox 1") 'Modify slide/shape name as needed 
tb.TextFrame2.TextRange.Text = ws.Range("B2").Value 

Set tb = ActivePresentation.Slides(2).SHapes("TextBox 2") 'Modify slide/shape name as needed 
tb.TextFrame2.TextRange.Text = ws.Range("D2").Value 

Set tb = ActivePresentation.Slides(2).SHapes("TextBox 3") 'Modify slide/shape name as needed 
tb.TextFrame2.TextRange.Text = ws.Range("F2").Value 

End Sub