Ë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.