L'exportation de données à partir d'Excel dans une diapositive PowerPoint existante à l'aide de VBA

je suis en train d'écrire un petit excel add-in pour une simple analyse de données, mais malheureusement, je ne suis pas un VBA-programmeur 😉

ce que j'ai fait jusqu'à maintenant:

  • extraire des données à partir d'un énorme classeur excel et effectuer des calculs
  • écrire les résultats dans un soigneusement préformaté excel "squelette" fichier

ce que je veux faire ensuite:

  • écrire les mêmes données pour un aussi déjà soigneusement préparé ppt diapositive
    directement à partir du code excel vba.

je pense qu'il est possible de définir une sorte de zones de texte à l'intérieur de la diapositive, puis il suffit de mettre les valeurs en eux... juste havent rien trouvé encore !

toute aide est appréciée 😉

c'est excel&powerpoint 2007, mais je veux le faire comme indépendante de la version que possible.

TIA

Quelle est la version de power point courez-vous ?
c'est excel&powerpoint 2007, mais je veux le faire en tant que version indépendante que possible.

OriginalL'auteur user2235370 | 2013-04-02

  1. 4

    voici un code que j'ai trouvé sur Mahipal Padigela du VBA site web

    (il est également référencé sur StackOverFlow)

    ''# Code by Mahipal Padigela
''# Open Microsoft Powerpoint,Choose/Insert a Table type Slide(No.4), then double click to add a...
''# ...Table(3 Cols & 2 Rows) then rename the Table to "Table1", Save and Close the Presentation
''# Open Microsoft Excel, add some test data to Sheet1(This example assumes that you have some data in...
''# ... Rows 1,2 and Columns 1,2,3)
''# Open VBA editor(Alt+F11),Insert a Module and Paste the following code in to the code window
''# Reference 'Microsoft Powerpoint Object Library' (VBA IDE-->tools-->references)
''# Change "strPresPath" with full path of the Powerpoint Presentation created earlier.
''# Change "strNewPresPath" to where you want to save the new Presnetation to be created later
''# Close VB Editor and run this Macro from Excel window(Alt+F8) 
Dim oPPTApp As PowerPoint.Application
Dim oPPTShape As PowerPoint.Shape
Dim oPPTFile As PowerPoint.Presentation
Dim SlideNum As Integer
Sub PPTableMacro()
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
strPresPath = "H:\PowerPoint\Presentation1.ppt"
strNewPresPath = "H:\PowerPoint\new1.ppt"
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)
SlideNum = 1
oPPTFile.Slides(SlideNum).Select
Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table1")
Sheets("Sheet1").Activate
with oPPTShape.Table
.Cell(1, 1).Shape.TextFrame.TextRange.Text = Cells(1, 1).Text
.Cell(1, 2).Shape.TextFrame.TextRange.Text = Cells(1, 2).Text
.Cell(1, 3).Shape.TextFrame.TextRange.Text = Cells(1, 3).Text
.Cell(2, 1).Shape.TextFrame.TextRange.Text = Cells(2, 1).Text
.Cell(2, 2).Shape.TextFrame.TextRange.Text = Cells(2, 2).Text
.Cell(2, 3).Shape.TextFrame.TextRange.Text = Cells(2, 3).Text
end with 
oPPTFile.SaveAs strNewPresPath
oPPTFile.Close
oPPTApp.Quit
Set oPPTShape = Nothing
Set oPPTFile = Nothing
Set oPPTApp = Nothing
MsgBox "Presentation Created", vbOKOnly + vbInformation
End Sub

    et voici de l'aide supplémentaire sur L'automatisation de Powerpoint avec VBA et http://www.mahipalreddy.com/vba/ppvba.htm

    pour obtenir les noms des diapositives individuelles essayer quelque chose comme ci-dessous:

    Dim oSlide As Slide
For Each oSlide In ActiveWindow.Presentation.Slides
Debug.Print oSlide.Name
Next
End Sub

    qui devrait puissance de vous diriger dans la bonne direction ! (tellement drôle)

    Philip

    merci pour tout, vraiment excellent à souligner! j'avais aussi trouvé que. cependant, il semble qu'il n'y est pas facile d'obtenir la forme des noms directement à partir de power point. je pense donc que je vais devoir l'essayer et de vérifier dans la fenêtre exécution et de les définir en conséquence.
    oui, vous devez utiliser ?ActiveWindow.Sélection.SlideRange.Nom après la sélection, ou une boucle par tous les slideranges dans la fenêtre active. J'ai édité ma réponse à ajouter!
    je viens de découvrir que vous pouvez afficher/renommer des objets à l'aide de l'Organiser ruban de powerpoint ! mauvais renommer tous et ensuite voir si je peut faire référence facilement dans vba !
    ah, je suis à l'aide de Powerpoint 2003 donc, pour moi, c'est différent
    voici le PowerPoint Gourou Site

    OriginalL'auteur Our Man in Bananas