|
? 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 "
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.
|
