Comment utiliser automation pour créer et afficher une présentation PowerPoint avec Visual Basic .NET 2002 ou Visual Basic .NET 2003

Traductions disponibles Traductions disponibles
Numéro d'article: 303717 - Voir les produits auxquels s'applique cet article
Pour une version de Visual C# .NET de cet article, voir 303718.
Pour une version de Visual C++ .NET de cet article, voir 308336.
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article explique comment utiliser automation pour créer et afficher une présentation Microsoft PowerPoint à l'aide de Microsoft Visual Basic .NET 2002 ou de Visual Basic .NET 2003.

Plus d'informations

Créer un client automation pour Microsoft PowerPoint

  1. Démarrez Microsoft Visual Studio .NET 2002 ou Visual Studio .NET 2003. Dans le menu Fichier , cliquez sur Nouveau , puis cliquez sur Project . Sélectionnez application Windows dans les types de projets Visual Basic. Form1 est créé par défaut.
  2. Ajouter une référence à la bibliothèque d'objets Microsoft PowerPoint et la bibliothèque d'objets Microsoft Graph . Pour ce faire, procédez comme suit :
    1. Dans le menu projet , cliquez sur Ajouter référence .
    2. Sous l'onglet COM , la bibliothèque d'objets Microsoft PowerPoint , puis cliquez sur Sélectionner . Recherchez également le objet graphique Microsoft bibliothèque , puis cliquez sur Sélectionner .

      Remarque : Microsoft Office 2003 et versions ultérieures de Microsoft Office contient des assemblys PIA (assembly). Microsoft Office XP n'inclut pas assembly, mais ils peuvent être téléchargés.

      Pour plus d'informations sur les assemblys PIA Office XP, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :
      328912 Assemblys PIA Microsoft Office XP sont disponibles au téléchargement
    3. Cliquez sur OK dans la ajouter références boîte de dialogue pour accepter vos sélections.
  3. Dans le menu Affichage , sélectionnez boîte à outils pour afficher la boîte à outils et ajouter un bouton à Form1.
  4. Double-cliquez sur Button1 . La fenêtre de code pour le formulaire s'affiche.
  5. Dans la fenêtre de code, recherchez le code suivant
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    					
    remplacer par le code suivant :
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
            Const sTemplate = _
               "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"
            Const sPic = "C:\WINNT\Soap Bubbles.bmp"
    
            Dim oApp As PowerPoint.Application
            Dim oPres As PowerPoint.Presentation
            Dim oSlide As PowerPoint.Slide
            Dim bAssistantOn As Boolean
    
            'Start Powerpoint and make its window visible but minimized.
            oApp = New PowerPoint.Application()
            oApp.Visible = True
            oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    
            'Create a new presentation based on the specified template.
            oPres = oApp.Presentations.Open(sTemplate, , , True)
    
            'Build Slide #1:
            'Add text to the slide, change the font and insert/position a 
            'picture on the first slide.
            oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Sample Presentation"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)
            oSlide = Nothing
    
            'Build Slide #2:
            'Add text to the slide title, format the text. Also add a chart to the
            'slide and change the chart type to a 3D pie chart.
            oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Chart"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            Dim oChart As Graph.Chart
            oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _
                        "MSGraph.Chart.8").OLEFormat.Object
            oChart.ChartType = Graph.XlChartType.xl3DPie
            oChart = Nothing
            oSlide = Nothing
    
            'Build Slide #3:
            'Add a text effect to the slide and apply shadows to the text effect.
            oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)
            oSlide.FollowMasterBackground = False
            Dim oShape As PowerPoint.Shape
            oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _
                "The End", "Impact", 96, False, False, 230, 200)
            oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground
            oShape.Shadow.Visible = True
            oShape.Shadow.OffsetX = 3
            oShape.Shadow.OffsetY = 3
            oShape = Nothing
            oSlide = Nothing
    
            'Modify the slide show transition settings for all 3 slides in
            'the presentation.
            Dim SlideIdx(3) As Integer
            SlideIdx(0) = 1
            SlideIdx(1) = 2
            SlideIdx(2) = 3
            With oPres.Slides.Range(SlideIdx).SlideShowTransition
                .AdvanceOnTime = True
                .AdvanceTime = 3
                .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut
            End With
            Dim oSettings As PowerPoint.SlideShowSettings
            oSettings = oPres.SlideShowSettings
            oSettings.StartingSlide = 1
            oSettings.EndingSlide = 3
    
            'Prevent Office Assistant from displaying alert messages.
            bAssistantOn = oApp.Assistant.On
            oApp.Assistant.On = False
    
            'Run the slide show and wait for the slide show to end.
            oSettings.Run()
            Do While oApp.SlideShowWindows.Count >= 1
                System.Windows.Forms.Application.DoEvents()
            Loop
            oSettings = Nothing
    
            'Reenable Office Assisant, if it was on.
            If bAssistantOn Then
                oApp.Assistant.On = True
                oApp.Assistant.Visible = False
            End If
    
            'Close the presentation without saving changes and quit PowerPoint.
            oPres.Saved = True
            oPres.Close()
            oPres = Nothing
            oApp.Quit()
            oApp = Nothing
            GC.Collect()
        End Sub
    					
    Remarque dans ce code, les constantes sTemplate et sPic représentent le chemin d'accès complet et nom de fichier à un PowerPoint modèle et une image, respectivement. Modifiez ces chemins d'accès nécessaire pour utiliser un modèle ou une image qui est installé sur votre système.
  6. Ajoutez le code suivant au début de Form1.vb :
    Imports Office = Microsoft.Office.Core
    Imports Graph = Microsoft.Office.Interop.Graph
    Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    					
  7. Appuyez sur F5 pour générer et exécuter ensuite le programme.
  8. Cliquez sur Button1 sur le formulaire pour créer et afficher un PowerPoint présentation.

Références

Pour plus d'informations, consultez le développeur de Microsoft suivant site Web de Network (MSDN) :
http://msdn2.microsoft.com/en-us/library/aa167948(office.11).aspx
Pour plus d'informations sur automation de PowerPoint, cliquez sur les numéros ci-dessous pour afficher les articles correspondants dans la Base de connaissances :
180616 Comment faire pour utiliser MFC pour créer et afficher une présentation PowerPoint
222929 Comment faire pour automatiser PowerPoint à l'aide de Visual Basic

Propriétés

Numéro d'article: 303717 - Dernière mise à jour: jeudi 31 mai 2007 - Version: 9.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office PowerPoint 2007
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard
  • Microsoft Visual Basic .NET 2003 Initiation
  • Microsoft Visual Basic .NET 2002 Initiation
  • Microsoft Visual Studio .NET 2002 Éducation
  • Microsoft Visual Studio .NET 2002 Enterprise Architect
  • Microsoft Visual Studio .NET 2002 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Éducation
  • Microsoft Visual Studio .NET 2003 Enterprise Architect
  • Microsoft Visual Studio .NET 2003 Enterprise Developer
  • Microsoft Visual Studio .NET 2003 Professional
Mots-clés : 
kbmt kbexpertiseinter kbautomation kbhowto KB303717 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 303717
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com