Excel datu nosūtīšana uz PowerPoint prezentāciju

Ir teikts, ka līdz pat 50 procentiem PowerPoint prezentāciju ir dati, kas ir nokopēti tieši no programmas Excel. Šim apgalvojumam nav grūti noticēt. Bieži vien ir daudz vieglāk analizēt un izveidot diagrammas un datu skatus programmā Excel nekā programmā PowerPoint. Kad šīs diagrammas un datu skati ir izveidoti, kāpēc gan tos vienkārši nepārvietot programmā PowerPoint? Šajā sadaļā esošais makro ļauj dinamiski izveidot PowerPoint slaidus, kuros ir dati no jūsu norādītā diapazona.

Varat lejupielādēt darba piemēru Excel datu nosūtīšanai uz programmu PowerPoint .

Kā darbojas makro

Šajā piemērā jūs kopējat diapazonu no Excel faila un ielīmējat šo diapazonu slaidā jaunizveidotā PowerPoint prezentācijā.

Ņemiet vērā: tā kā šis kods tiks palaists no programmas Excel, jums ir jāiestata atsauce uz Microsoft PowerPoint objektu bibliotēku. Atsauci var iestatīt, programmā Excel atverot Visual Basic redaktoru un izvēloties Rīks→ Atsauces. Ritiniet uz leju, līdz atrodat ierakstu Microsoft PowerPoint xx Object Library, kur xx ir jūsu PowerPoint versija. Atzīmējiet izvēles rūtiņu blakus ierakstam.

Sub CopyRangeTo Presentation ()
1. darbība: deklarējiet savus mainīgos
  Dim PP kā PowerPoint.Application
  Dim PPPres kā PowerPoint.Presentation
  Dim PPSlide kā PowerPoint.Slide
  Dim SlideTitle kā virkni
2. darbība. Atveriet programmu PowerPoint un izveidojiet jaunu prezentāciju
  Iestatiet PP = New PowerPoint.Application
  Iestatiet PPPres = PP.Presentations.Add
  PP.Redzams = patiess
3. darbība. Pievienojiet jaunu slaidu kā 1. slaidu un iestatiet tam fokusu
  Iestatīt PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
  PPSlide.Atlasiet
4. darbība: kopējiet diapazonu kā attēlu
  Sheets ("Slaida dati"). Diapazons ("A1:J28"). CopyPicture _
  Izskats:=xlScreen, Format:=xlPicture
5. darbība. Ielīmējiet attēlu un pielāgojiet tā pozīciju
  PPSlide.Formas.Ielīmēt.Atlasīt
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
6. darbība. Pievienojiet slaidam virsrakstu
  SlideTitle = "Mans pirmais PowerPoint slaids"
  PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
7. darbība. Atmiņas tīrīšana
  PP.Aktivizēt
  Iestatīt PPSlide = nekas
  Iestatīt PPPres = nekas
  Iestatīt PP = nekas
Beigt apakš