Existe-t-il un avenir pour PowerPoint VBA/VSTO?

Question

Est-ce que quelqu'un sait ce que l'avenir réserve à la programmation VBA/VSTO dans PowerPoint? J'ai travaillé sur un projet de bureautique et trouve frustrant de travailler avec PowerPoint en particulier, car il semble y avoir un niveau inférieur au support VBA trouvé dans Excel ou Word. Il semble que MS tente de supprimer progressivement la prise en charge de VBA dans PowerPoints depuis qu'ils ont supprimé l'enregistrement de macros en version 2007 et que le modèle d'objet ne prend pas en charge certaines fonctionnalités clés.

Answer 1

Je ne suis pas sûr si c'est la réponse que vous voulez entendre, mais le développement dans PowerPoint avec VBA est réellement bon. J'en fais pas mal (ainsi que Word et Excel) et il est assez robuste. Le PowerPoint OM qui peut être programmé contre avec VBA est mis à jour avec chacune des nouvelles versions de PPT. Dans PPT 2007, vous pouvez créer du code XML personnalisé contre n'importe quel objet sur une diapositive - bien plus puissant que les options disponibles dans Excel et Word. En revanche, Word 2007 a des contrôles de contenu, qui, pour que PPT soit un remplacement léger de type Crystal Reports, bénéficierait. Dans PPT 2010 (version bêta), vous pouvez créer par programme SmartArt, par exemple, comme vous le pouvez avec Word/Excel 2010. Vous pouvez également travailler par programme avec les éléments média mieux qu'avant. VSTO, d'un point de vue OM, n'offre pas beaucoup plus que VBA.

Cependant, cela dépend de vos besoins: créez-vous des diapositives standard? Est-ce que tu fais de l'animation prolongée? Faites-vous des rapports? Créez-vous des "applications" eLearning? Si vous avez des questions spécifiques sur l'OM, ​​nous pouvons essayer de vous aider ici (mais peut-être que la fonctionnalité n'existe tout simplement pas). Il est convenu que retirer le type d'enregistreur de macros de l'aspirateur, ce qui était une fonctionnalité utile. Travailler directement avec la PML/DML est également une douleur. Il y a des choses que j'aimerais que l'OM soutienne également. Mais en accord avec la spéléologie, je ne crois pas que VBA s'en ira de sitôt.

---

NOTE: CE NE FONCTIONNE PAS. IL EST FOURNI UNIQUEMENT COMME POINT DE DÉPART SI LES GENS VEULENT ESSAYER DE DÉVELOPPER CELA DANS QUELQUE CHOSE QUI POURRAIT FONCTIONNER (si vous pouvez le faire fonctionner, n'hésitez pas à éditer cet article).

1. Créer une classe appelée "clsPPTEvents"

2. Coller dans le code suivant.

   Public WithEvents PPTEvent As Application 
   Private Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long 
   Private Type POINTAPI 
       x As Long 
       y As Long 
   End Type 
   Dim ret As Long 
   Dim mousePosition As POINTAPI 
   Private Sub PPTEvent_WindowSelectionChange(ByVal Sel As Selection) 
       Dim ElementID As Long 
       Dim Arg1 As Long 
       Dim Arg2 As Long 
       With Sel 
        If .Type = ppSelectionShapes Then 
         Dim sr As ShapeRange 
         sr = .ShapeRange 
         If sr.Type = msoChart Then 
          Dim sh As Shape 
          Dim slideNumber As Integer 
          slideNumber = ActiveWindow.View.Slide.SlideIndex 
          sh = ActivePresentation.Slides(slideNumber).Shapes(sr.Name) 
          Dim crt As Chart 
          crt = sh.Chart 
          H = ActiveWindow.Height 
          w = ActiveWindow.Width 
          ret = GetCursorPos(mousePosition) 
          x = mousePosition.x 
          y = mousePosition.y 
          crt.GetChartElement(x, y, ElementID, Arg1, Arg2) 
          MsgBox("X: " & x & ", Y: " & y & vbNewLine & _ 
          "ElementID: " & ElementID & ", Arg1: " & Arg1 & ", Arg2: " & Arg2) 
         End If 
        End If 
       End With 
   End Sub 
   

3. Dans un module régulier, vous pouvez démarrer/arrêter la gestion des événements avec ceci:

   Public newPPTEvents As New clsPPTEvents 
   Sub StartEvents() 
       Set newPPTEvents.PPTEvent = Application 
   End Sub 
   Sub EndEvents() 
       Set newPPTEvents.PPTEvent = Nothing 
   End Sub 
   

Notez que dans le code # 2, il ne fonctionne pas à cause de ce que GetCursorPos renvoie, qui est l'écran X, Y.En regardant l'événement, il apparaît que ce que le GetChartElement veut, c'est soit les coordonnées de la fenêtre de délimitation de la fenêtre ou du volet, soit simplement le graphique lui-même.

Answer 2

Powerpoint n'a jamais été une plate-forme populaire pour le développement VBA. Je peux comprendre l'abandon des fonctionnalités de l'interface utilisateur pour VBA dans ce contexte. Tt est très facile d'inclure le support de VBA pour Powerpoint sur la force d'Excel et Word - qui ne disparaîtra pas bientôt, voire pas du tout. Mon argent sera sur le support d'héritage à long terme, avec l'assistance pauvre ou inexistante de Microsoft pour des problèmes. Rappelez-vous que la MS est une question de compatibilité descendante - et ils sont très prudents lorsqu'ils la laissent tomber.

Answer 3

Je suis d'accord PPT est bien en dessous d'autres vba. Par-dessus tout, il semble bogué voir Weird bug on powerpoint vba

événement modèle est maladroit comme aucune exécution automatique How to automatically trigger the App Object initialization in Powerpoint?

auto_open est possible que de manière circumvoluted en créant un Addin ce que sur les utilisateurs qui reçoit votre ppt et ne savent pas comment installer le plugin :(

Answer 4

Voir ce article pour résumer pourquoi VSTO est le chemin à parcourir. Compares avec VBA pour Excel, mais même chose vaut pour Powerpoint aussi.