? Microsoft Excel est un tableur qui peut être utilisé pour analyser les données et créer des graphiques . Microsoft PowerPoint est utilisé pour créer des présentations . Sachant comment exporter un graphique Excel dans PowerPoint à l'aide d'une macro permet de rationaliser le processus de préparation des présentations , car la macro automatise la phase d'exportation. Instructions
1

Démarrez Microsoft Excel 2007 et tapez la commande suivante :

Dans la colonne " A1 " type " 1". Dans la colonne "B1 " type " 0.5" .

Dans la colonne "A2 " type " 2" . Dans la colonne de type "B2" " 0.2" .

Dans la colonne " A3 " type " 3". Dans la colonne de type "B3" " 0.7" .

Dans la colonne "A4 " type " 4" . Dans la colonne type "F4 " " 0.1" .

Dans la colonne " A5 " type " 5". Dans la colonne de type " B5 " " 0.9" .

Highlight " A1 " à " B5 ", cliquez sur le menu "Insertion " et sélectionnez " Line" pour créer un graphique en ligne .
2 < p> Sélectionnez l'onglet « développeur » et cliquez sur « Enregistrer une macro . " Cliquez sur " A1 " et sélectionnez " Arrêter l'enregistrement . " Cliquez sur " Macros " et sélectionner " Macro1 ". Cliquez sur " Modifier" pour ouvrir Microsoft Visual Basic.

Cliquez sur le menu " Outils" et cochez la case à côté de " PowerPoint 12.0 Object Library ". Sélectionnez "OK".
3

Tapez la commande suivante à l'intérieur " Sub Macro1 " de déclarer vos variables :

myPath Dim As String

ppApp As PowerPoint.Application

ppPresentation As PowerPoint.Presentation

ppSlide As PowerPoint.Slide

ppImage As PowerPoint.Shape
4 Type de

le suivant pour enregistrer la nouvelle carte vous venez de créer : .

ActiveSheet.ChartObjects ( " Graphique 1 " ) Activer

myPath = " C: \\ myChart.gif "
< p > Nom du fichier ActiveChart.Export : = myPath , FilterName : = " GIF "

Vous pouvez modifier " myPath =" C : \\. myChart.gif " " pour enregistrer le graphique dans une voie différente
< br > 5

Tapez la commande suivante pour créer une nouvelle présentation PowerPoint et ajouter une diapositive vierge :

Set ppApp = New PowerPoint.Application

ppApp.Visible = msoTrue

Réglez ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1, ppLayoutBlank
6

Tapez la commande suivante pour ajouter votre tableau Excel et enregistrer la présentation : < br >

Set ppSlide = ppPresentation.Slides (1) Photos

ppSlide.Shapes.AddPicture fichier: = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

gauche: = 100 , Top = 100 , Largeur: = 250 , Hauteur: 250 =

ppPresentation.SaveAs " G: \\ myExcelChartPresentation.ppt "

ppPresentation.Close < br >

ppApp.Quit

Vous pouvez éditer " ppPresentation.SaveAs " G : \\. myExcelChartPresentation.ppt "" pour enregistrer votre présentation dans un chemin différent
7

Tapez le suite pour libérer vos variables de la mémoire :

Set ppSlide = Nothing Set

ppPresentation = Nothing Set

ppApp = Nothing

Appuyez sur " F5 " pour exécuter votre macro.