Dërgimi i të dhënave të Excel në një prezantim në PowerPoint

Është thënë se deri në 50 përqind e prezantimeve në PowerPoint përmbajnë të dhëna që janë kopjuar drejtpërdrejt nga Excel. Kjo deklaratë nuk është e vështirë të besohet. Shpesh është shumë më e lehtë të analizosh dhe të krijosh tabela dhe pamje të të dhënave në Excel sesa në PowerPoint. Pasi të jenë krijuar ato grafikët dhe pamjet e të dhënave, pse nuk do t'i zhvendosni ato thjesht në PowerPoint? Makroja në këtë seksion ju lejon të krijoni në mënyrë dinamike sllajde në PowerPoint që përmbajnë të dhëna nga një gamë që ju specifikoni.

Mund të shkarkoni një shembull funksional të dërgimit të të dhënave të Excel në PowerPoint .

Si funksionon makroja

Në këtë shembull, ju kopjoni një gamë nga një skedar Excel dhe ngjisni atë diapazon në një rrëshqitje në një prezantim të sapokrijuar në PowerPoint.

Mbani në mend se për shkak se ky kod do të ekzekutohet nga Excel, ju duhet të vendosni një referencë për Bibliotekën e Objekteve të Microsoft PowerPoint. Ju mund të vendosni referencën duke hapur Visual Basic Editor në Excel dhe duke zgjedhur Tool→References. Lëvizni poshtë derisa të gjeni hyrjen Microsoft PowerPoint xx Object Library, ku xx është versioni juaj i PowerPoint. Vendosni një kontroll në kutinë e kontrollit pranë hyrjes.

Nën CopyRangeToPresentation ()
'Hapi 1: Deklaroni variablat tuaja
  Dim PP As PowerPoint.Application
  Dim PPPres As PowerPoint.Prezantimi
  Dim PPSlide si PowerPoint.Slide
  Dim Titulli i Slide As String
'Hapi 2: Hapni PowerPoint dhe krijoni një prezantim të ri
  Set PP = New PowerPoint.Application
  Set PPPres = PP.Prezentimet.Shto
  PP.E dukshme = E vërtetë
'Hapi 3: Shtoni një rrëshqitje të re si rrëshqitje 1 dhe vendosni fokusin në të
  Cakto PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
  PPSlide.Zgjidh
'Hapi 4: Kopjoni gamën si foto
  Fletët ("Të dhënat e rrëshqitjes"). Gama ("A1:J28"). KopjoPicture _
  Pamja:=xlEkrani, Formati:=xlFoto
'Hapi 5: Ngjitni figurën dhe rregulloni pozicionin e saj
  PPSlide.Shapes.Paste.Select
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Hapi 6: Shtoni titullin në rrëshqitje
  SlideTitle = "Diapozitivi im i parë në PowerPoint"
  PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
'Hapi 7: Pastrimi i memories
  PP.Aktivizo
  Vendos PPSlide = Asgjë
  Vendos PPPres = Asgjë
  Vendos PP = Asgjë
Fund nën

Në hapin 1, ju deklaroni katër variabla: PP është një ndryshore objekti që ekspozon objektin e aplikacionit PowerPoint, PPPres është një ndryshore objekti që ekspozon objektin e prezantimit të PowerPoint, PPSlide është një ndryshore objekti që ekspozon objektin PowerPoint Slide dhe SlideTitle është një varg. variabli i përdorur për të kaluar tekstin për titullin e rrëshqitjes.

Hapi 2 hap PowerPoint me një prezantim bosh. Vini re se keni vendosur vetinë Visible të aplikacionit PowerPoint në "E vërtetë" për t'u siguruar që mund ta shihni veprimin ndërsa kodi ekzekutohet.

Në hapin 3, ju shtoni një rrëshqitje të re në prezantim duke përdorur metodën Shto të objektit Slide. Vini re se po përdorni ppLayoutTitleOnly, duke u siguruar që rrëshqitja të jetë krijuar me një kornizë teksti titulli. Më pas ndërmerrni një hap shtesë dhe vendosni fokusin në rrëshqitje. Kjo do të thotë, ju i thoni në mënyrë eksplicite PowerPoint që të zgjedhë këtë rrëshqitje, duke e bërë atë aktiv.

Në hapin 4, ju përdorni metodën CopyPicture për të kopjuar diapazonin e synuar si foto. Gama që kopjohet këtu është diapazoni A1 deri në J28 në skedën "Të dhënat e rrëshqitjes".

Hapi 5 e ngjit figurën në rrëshqitjen aktive dhe e përqendron figurën si horizontalisht ashtu edhe vertikalisht.

Në hapin 6, ju e ruani tekstin për titullin në një variabël vargu dhe më pas ia kaloni atë ndryshore PowerPoint për të aplikuar tekstin në kornizën e tekstit të titullit.

Në hapin 7, ju lëshoni objektet e caktuara për variablat tuaja, duke zvogëluar mundësinë e ndonjë problemi të shkaktuar nga objektet rouge që mund të mbeten të hapura në memorie.

Si të përdorni makro

Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:

Aktivizoni Visual Basic Editor duke shtypur Alt+F11.

Në dritaren e Projektit, gjeni emrin e projektit/librit tuaj të punës.

Zgjidhni Fut → Modul.

Shkruani ose ngjitni kodin.

Leave a Comment

Si të shkruani shënime në OneNote 2013 në Android

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.