Vous êtes actuellement hors ligne, en attente de reconnexion à Internet.

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

Le support d'Office 2003 a pris fin

Microsoft a mis fin au support d'Office 2003 le 8 avril 2014. Cette modification a affecté vos mises à jour logicielles et options de sécurité. Découvrez les implications de ce changement à votre niveau et la marche à suivre pour rester protégé.

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
Pour une version de Visual C# .NET de cet article, voir 303718.
Pour une version de Visual C++ .NET de cet article, voir 308336.
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.CoreImports Graph = Microsoft.Office.Interop.GraphImports 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) : 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
PPT2007

Avertissement : cet article a été traduit automatiquement

Propriétés

ID d'article : 303717 - Dernière mise à jour : 05/31/2007 03:39:24 - Révision : 9.2

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

  • kbmt kbexpertiseinter kbautomation kbhowto KB303717 KbMtfr
Commentaires
d(m);