• 
  

  Hur skapar jag ett makro i xls att exportera ett diagram till PowerPoint ?

  
  

Microsoft Excel är ett kalkylprogram som kan användas för att analysera data och skapa diagram . Microsoft PowerPoint används för att skapa presentationer . Att veta hur man exporterar en Excel- diagram till PowerPoint med hjälp av ett makro kan effektivisera arbetet med att utarbeta presentationer , eftersom makrot automatiserar exporterande fasen
1 .
Starta Microsoft Excel 2007 och skriv följande :



I kolumn " A1 "typ " 1 " . I kolumnen " B1 "typ " 0,5 " .

i kolumn " A2 "typ " 2 " . I kolumn " B2 "typ " 0,2 " .

I kolumn " A3 "typ " 3 " . I kolumnen " B3 "typ " 0,7 " .

I kolumn " A4 "typ " 4 " . I kolumnen " B4 "typ " 0,1 " .

i kolumn " A5 "typ " 5 " . I kolumnen " B5 "typ " 0,9 " .



Markera " A1 " till " B5 "klickar du på " Infoga " -menyn och välj " Line " för att skapa en linje diagrammet .
2 .
Välj " Utvecklare "-fliken och klicka på " Spela in makro . " Klicka på " A1 " och välj " Stoppa inspelning . " Klicka på " Makron " och välj " Makro1 . " Klicka på " Redigera " för att öppna Microsoft Visual Basic.



Klicka på menyn "Verktyg" och markera rutan bredvid " Microsoft PowerPoint 12. 0 Object Library. " Välj " OK ".
3
Skriv följande insidan " Sub Makro1 " att förklara dina variabler .



Dim myPath As String

Dim ppApp Som PowerPoint. Application

Dim ppPresentation Som PowerPoint. Presentation

Dim ppSlide Som PowerPoint. Slide

Dim ppImage Som PowerPoint. Shape
4
Skriv följande för att spara den nya tabellen du just har skapat .



ActiveSheet . . ChartObjects ( " diagram 1 ) Aktivera

myPath=" C : \ myChart. gif "

ActiveChart. Export Filnamn :=myPath , FilterName :=" GIF "



Du kan redigera " myPath="C : . \ myChart. gif " "för att spara diagram i en annan väg
5

Skriv följande för att skapa en ny PowerPoint-presentation och lägga till en tom bild :



Set ppApp=Nya PowerPoint. Application

ppApp . Synlig=msoTrue

Set ppPresentation=ppApp. Presentations. Add ( msoTrue )

ppPresentation . Slides. Add 1 , ppLayoutBlank
6
Skriv följande för att lägga till din Excel-diagram och spara presentationen .



Set ppSlide=ppPresentation. Slides (1 )

ppSlide. Shapes. AddPicture Filnamn :=myPath , _

LinkToFile :=msoTrue , SaveWithDocument :=msoTrue , _

Vänster :=100 , Top :=100 , bredd :=250 , Höjd :=250

ppPresentation. SaveAs "G : \ myExcelChartPresentation. ppt "

ppPresentation. Close

ppApp. Quit



Du kan redigera " ppPresentation . SaveAs "G : \ myExcelChartPresentation. ppt " "för att spara din presentation i en annan väg
7
Skriv följande för att frigöra dina variabler från minnet .



Set ppSlide=Inget

Set ppPresentation=Inget

Set ppApp=Inget



Tryck "F5 " för att köra makrot .

Previous：nothing Next：om Sun Java -certifiering

Relaterade artiklar