Skicka Excel-data till en PowerPoint-presentation

Det har sagts att upp till 50 procent av PowerPoint-presentationer innehåller data som har kopierats direkt ur Excel. Detta uttalande är inte svårt att tro. Det är ofta mycket lättare att analysera och skapa diagram och datavyer i Excel än i PowerPoint. När dessa diagram och datavyer har skapats, varför skulle du inte bara flytta dem till PowerPoint? Makrot i det här avsnittet låter dig skapa PowerPoint-bilder dynamiskt som innehåller data från ett intervall som du anger.

Du kan ladda ner ett fungerande exempel på att skicka Excel-data till PowerPoint .

Hur makrot fungerar

I det här exemplet kopierar du ett intervall från en Excel-fil och klistrar in det intervallet på en bild i en nyskapad PowerPoint-presentation.

Tänk på att eftersom den här koden kommer att köras från Excel måste du ange en referens till Microsoft PowerPoint Object Library. Du kan ställa in referensen genom att öppna Visual Basic Editor i Excel och välja Verktyg→Referenser. Rulla ner tills du hittar posten Microsoft PowerPoint xx Object Library, där xx är din version av PowerPoint. Placera en bock i kryssrutan bredvid posten.

Sub CopyRangeToPresentation ()
'Steg 1: Deklarera dina variabler
  Dim PP Som PowerPoint.Application
  Dim PPPres Som PowerPoint.Presentation
  Dim PPSlide Som PowerPoint.Slide
  Dim SlideTitle som sträng
'Steg 2: Öppna PowerPoint och skapa en ny presentation
  Ställ in PP = New PowerPoint.Application
  Ställ in PPPres = PP.Presentations.Add
  PP.Synlig = Sant
'Steg 3: Lägg till ny bild som bild 1 och ställ in fokus på den
  Ange PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
  PPSlide.Select
'Steg 4: Kopiera området som en bild
  Sheets("Slide Data").Range("A1:J28").CopyPicture _
  Utseende:=xlSkärm, Format:=xlBild
'Steg 5: Klistra in bilden och justera dess position
  PPSlide.Shapes.Paste.Select
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Steg 6: Lägg till titeln på bilden
  SlideTitle = "Min första PowerPoint-bild"
  PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
'Steg 7: Minnesrensning
  PP.Aktivera
  Ställ in PPSlide = Ingenting
  Ställ in PPPres = Ingenting
  Ställ in PP = Ingenting
Avsluta sub

I steg 1 deklarerar du fyra variabler: PP är en objektvariabel som exponerar PowerPoint Application-objektet, PPPres är en objektvariabel som exponerar PowerPoint Presentation-objektet, PPSlide är en objektvariabel som exponerar PowerPoint Slide-objektet och SlideTitle är en sträng variabel som används för att skicka texten till bildrubriken.

Steg 2 öppnar PowerPoint med en tom presentation. Observera att du ställer in egenskapen Visible för PowerPoint-applikationen till True för att säkerställa att du kan se åtgärden när koden körs.

I steg 3 lägger du till en ny bild i presentationen med hjälp av Lägg till metoden för Slide-objekt. Observera att du använder ppLayoutTitleOnly, och se till att bilden skapas med en rubriktextram. Du tar sedan ett extra steg och sätter fokus på rutschkanan. Det vill säga, du säger uttryckligen till PowerPoint att välja den här bilden, vilket gör den aktiv.

I steg 4 använder du metoden CopyPicture för att kopiera målområdet som en bild. Området som kopieras här är intervall A1 till J28 på fliken Slide Data.

Steg 5 klistrar in bilden i den aktiva bilden och centrerar bilden både horisontellt och vertikalt.

I steg 6 lagrar du texten för titeln i en strängvariabel och skickar sedan variabeln till PowerPoint för att tillämpa text på titeltextramen.

I steg 7 släpper du objekten som tilldelats dina variabler, vilket minskar risken för problem orsakade av rouge-objekt som kan förbli öppna i minnet.

Hur man använder makrot

För att implementera detta makro kan du kopiera och klistra in det i en standardmodul:

Aktivera Visual Basic Editor genom att trycka på Alt+F11.

Hitta ditt projekt-/arbetsboksnamn i projektfönstret.

Välj Infoga → Modul.

Skriv eller klistra in koden.


Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows

Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows

Hur man blockerar Microsoft Word från att öppna filer i skrivskyddat läge på Windows Microsoft Word öppnar filer i skrivskyddat läge, vilket gör det omöjligt att redigera dem? Oroa dig inte, metoderna finns nedan

Hur man åtgärdar felaktig utskrift av Microsoft Word-dokument

Hur man åtgärdar felaktig utskrift av Microsoft Word-dokument

Så här åtgärdar du fel vid utskrift av felaktiga Microsoft Word-dokument Fel vid utskrift av Word-dokument med ändrade teckensnitt, röriga stycken, saknad text eller förlorat innehåll är ganska vanligt. Men gör det inte

Radera ritningar med penna och överstrykningspenna på dina PowerPoint-bilder

Radera ritningar med penna och överstrykningspenna på dina PowerPoint-bilder

Om du har använt pennan eller överstrykningspennan för att rita på dina PowerPoint-bilder under en presentation, kan du spara ritningarna till nästa presentation eller radera dem så att nästa gång du visar den börjar du med rena PowerPoint-bilder. Följ dessa instruktioner för att radera ritningar med penna och överstrykningspenna: Radera linjer ett på […]

Stilbiblioteksinnehåll i SharePoint 2010

Stilbiblioteksinnehåll i SharePoint 2010

Stilbiblioteket innehåller CSS-filer, XSL-filer (Extensible Stylesheet Language) och bilder som används av fördefinierade mallsidor, sidlayouter och kontroller i SharePoint 2010. För att hitta CSS-filer i stilbiblioteket på en publiceringswebbplats: Välj Webbplatsåtgärder→Visa Allt webbplatsinnehåll. Innehållet på webbplatsen visas. Style-biblioteket ligger i […]

Formatera siffror i tusentals och miljoner i Excel-rapporter

Formatera siffror i tusentals och miljoner i Excel-rapporter

Överväldiga inte din publik med gigantiska siffror. I Microsoft Excel kan du förbättra läsbarheten för dina instrumentpaneler och rapporter genom att formatera dina siffror så att de visas i tusentals eller miljoner.

Hur man delar och följer SharePoint-webbplatser

Hur man delar och följer SharePoint-webbplatser

Lär dig hur du använder SharePoints sociala nätverksverktyg som låter individer och grupper kommunicera, samarbeta, dela och ansluta.

Hur man konverterar datum till Julian-format i Excel

Hur man konverterar datum till Julian-format i Excel

Julianska datum används ofta i tillverkningsmiljöer som en tidsstämpel och snabbreferens för ett batchnummer. Denna typ av datumkodning tillåter återförsäljare, konsumenter och serviceagenter att identifiera när en produkt tillverkades och därmed produktens ålder. Julianska datum används också i programmering, militären och astronomi. Annorlunda […]

Hur man skapar en Access Web App

Hur man skapar en Access Web App

Du kan skapa en webbapp i Access 2016. Så vad är en webbapp egentligen? Tja, webben betyder att den är online, och appen är bara en förkortning för "applikation". En anpassad webbapp är en onlinedatabasapplikation som nås från molnet med en webbläsare. Du bygger och underhåller webbappen i skrivbordsversionen […]

Snabbstartsfält i SharePoint 2010

Snabbstartsfält i SharePoint 2010

De flesta sidor i SharePoint 2010 visar en lista med navigeringslänkar i snabbstartsfältet till vänster på sidan. Snabbstartsfältet visar länkar till utvalt webbplatsinnehåll som listor, bibliotek, webbplatser och publiceringssidor. Snabbstartsfältet innehåller två mycket viktiga länkar: Länken Allt webbplatsinnehåll: […]

Vad betyder lösarens felmeddelanden i Excel?

Vad betyder lösarens felmeddelanden i Excel?

För enkla problem hittar Solver i Excel vanligtvis snabbt de optimala Solver-variabelvärdena för objektivfunktionen. Men i vissa fall har Solver problem med att hitta Solver-variabelvärdena som optimerar objektivfunktionen. I dessa fall visar Solver vanligtvis ett meddelande eller ett felmeddelande som beskriver eller diskuterar problemet som […]