photosdematures.com

Excel VBA PowerPoint

Gamit ang VBA maaari naming i-automate ang gawaing ginagawa namin para sa PowerPoint, ngunit una upang magamit ang VBA code o mga snippet upang gumana sa powerpoint muna ang trabaho sa pamamagitan ng mga pagpipilian sa seguridad sa PowerPoint upang paganahin ang lahat ng macros at pagkatapos ay maaari naming magamit ang sanggunian ng PowerPoint VBA para sa macros sa MS PowerPoint.

Ang kagandahan ng VBA ay maaari naming sanggunian ang iba pang mga produkto ng Microsoft tulad ng "Microsoft Word" at "Microsoft PowerPoint". Karaniwan kaming gumagawa ng mga ulat sa excel at pagkatapos ay lumikha ng mga presentasyon ng PowerPoint. Ang lahat ng mga gumagamit ng excel ay karaniwang gumugugol ng isang malaking halaga ng oras upang ihanda ang pagtatanghal mula sa excel data at mga ulat. Kung gumugugol ka ng isang malaking halaga ng oras sa paghahanda ng mga pagtatanghal ng PowerPoint ang tutorial na ito ay magpapakita sa iyo kung paano lumikha ng isang pagtatanghal ng PowerPoint mula sa excel mismo gamit ang VBA Coding.

Paganahin ang Modelong Bagay ng Powerpoint

Hakbang 1: Buksan ang VBA Editor at pagkatapos, Pumunta sa Mga Tool at Mga Sanggunian.

Hakbang 2: Ngayon makikita mo ang lahat ng mga sanggunian sa VBA Project. Mag-scroll pababa at piliin ang "Microsoft PowerPoint 15.0 Object Library".

Hakbang 3: Mag-click sa Ok. Ngayon ay maaari na nating ma-access ang PowerPoint mula sa excel.

VBA Tutorial upang Lumikha ng PowerPoint Presentation

Maaari kaming lumikha ng PPT sa dalawang paraan isa sa pamamagitan ng paggamit ng "Maagang Pagbubuklod" at isa pa ay gumagamit ng "Late Binding". Ipapakita namin sa iyo kung paano lumikha ng isang pagtatanghal ng PowerPoint sa pamamagitan ng gamit ang diskarteng "Maagang Binding".

Maaari mong i-download ang Template ng VBA PowerPoint Excel dito - VBA PowerPoint Excel Template

Karaniwan, mula sa excel ay naghahanda kami ng mga presentasyon batay sa mga tsart at interpretasyon ng mga tsart. Kaya para sa hangaring ito, lumikha ako ng ilang simpleng mga tsart ng excel at interpretasyon sa parehong worksheet.

Hakbang 1: Simulan ang subroutine sa vba. Ngayon upang ma-access ang PowerPoint pinagana na namin ang modelo ng object ng PowerPoint sa mga naunang hakbang, ngayon upang ma-access ito kailangan naming ideklara ang variable bilang PowerPoint.Application.

Code:

 Sub PPT_Example () I-dim ang PPApp Bilang PowerPoint.Application End Sub 

Hakbang 2: Upang idagdag ang pagtatanghal sa PowerPoint kailangan nating ideklara ang isang variable bilang PowerPoint.Paglalahad.

Code:

 Madilim ang PPPresentation Bilang PowerPoint. Paglalahad

Hakbang 3: Matapos idagdag ang pagtatanghal sa PowerPoint kailangan nating magdagdag ng Slide. Upang ideklara ang variable bilang PowerPoint.Slide

Code:

 Dim PPSlide Bilang PowerPoint. Slide

Hakbang 4: Kapag naidagdag ang slide sa PowerPoint kailangan naming gumamit ng mga hugis sa PowerPoint ibig sabihin, mga kahon ng teksto. Upang ideklara ang isang variable bilang PowerPoint. Hugis

Code:

 Dim PPShape Bilang PowerPoint. Hugis

Hakbang 5: Ngayon upang ma-access ang lahat ng mga tsart sa worksheet kailangan naming ideklara ang variable bilang Excel.ChartObjects.

Code:

 Madilim ang mga PPChart Bilang Excel.ChartObject

Ok, upang simulan ang paglilitis ay sapat na ang mga variable na ito.

Hakbang 6: Ngayon kailangan naming ilunsad ang PowerPoint mula sa excel. Dahil ito ay isang panlabas na bagay kailangan namin upang itakda ito bilang isang bagong powerpoint.

Code:

 Itakda ang PPApp = Bagong PowerPoint.Application

Ilulunsad nito ang bagong PowerPoint mula sa excel.

Hakbang 7: Ngayon ang variable PPApp ay katumbas ng PowerPoint na inilunsad namin. Gawin itong nakikita ang PowerPoint na ito at i-maximize ang window.

Code:

PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized

Sa sandaling ito patakbuhin lamang ang code gamit ang F5 key o manu-mano, dapat mong makita ang PowerPoint app na inilunsad tulad ng sa ibaba.

Hakbang 8: Ngayon kailangan naming magdagdag ng isang pagtatanghal sa PowerPoint app na inilunsad namin.

Code:

 Itakda ang PPPresentation = PPApp. Mga Paglalahad. Idagdag

Ngayon ay dapat nating makita ang presentasyon ng PowerPoint na tulad nito.

Hakbang 9: Matapos idagdag ang pagtatanghal kailangan naming magdagdag ng isang slide.

Code:

 Itakda ang PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)

Ngayon ay idaragdag nito ang pamagat na slide tulad ng sa ibaba.

Hakbang 10:Ngayon mayroon kaming higit sa isang tsart sa worksheet na kailangan namin upang i-loop sa bawat tsart at i-paste sa pagtatanghal. Nasa ibaba ang code upang kopyahin at i-paste ang tsart pati na rin ang interpretasyon.

Nasa ibaba ang kumpletong code para sa iyo.

 Sub PPT_Example () Dim PPApp Bilang PowerPoint. Application Dim PPPresentation Bilang PowerPoint. Presentation Dim PPSlide Bilang PowerPoint. Slide Dim PPShape Bilang PowerPoint. Shape Dim PPCharts As Excel .ChartObject Set PPApp = New PowerPoint.Application PPApp. VisuePPAp ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add' Loop sa bawat tsart sa Excel at i-paste sa PowerPoint Para sa bawat PPCharts Sa ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.CoutTxt PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) 'Kopyahin ang tsart at i-paste sa Powerpoint PPCharts. Piliin ang ActiveChart.ChartArea. Kopya .PasteSpesyal (DataType: = ppPasteMetafilePicture). Piliin ang 'Magdagdag ng heading sa slide PPSlide. Mga Hugis (1). TextFrame.TextRange.Txt = PPCharts.Chart.ChartTitle.Txt' Allignment ng c hart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow.Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Lapad = 200 PPSlide.Shapes (2) .Kaliwa = 505 'Magdagdag ng interpretasyon Kung InStr (PPSlide . Mga Hugis (1). TextFrame.TxtRange.Txt, "Rehiyon") Pagkatapos PPSlide. Mga Hugis (2). TextFrame. TextRange. Text = Saklaw ("K2"). Halaga at vbNewLine PPSlide.Shapes (2). TextFrame.TextRange .InsertAfter (Saklaw ("K3"). Halaga & vbNewLine) 'Iba pa kung ang tsart ay ang "Renewable" na tsart ng pagkonsumo, pagkatapos ay ipasok ang naaangkop na mga puna ElseIf InStr (PPSlide.Shapes (1). TextFrame.TextRange.Text, "Buwan ") Pagkatapos ng PPSlide.Shapes (2). TextFrame.TxtRange.Text = Saklaw (" K20 "). Halaga at vbNewLine PPSlide.Shapes (2). TextFrame.TextRange.InsertAfter (Saklaw (" K21 "). Halaga at vbNewLine) PPSlide.Shapes (2) .TeksFrame.TxtRange.InsertAfter (Saklaw ("K22"). Halaga at vbNewLine) Tapusin Kung 'Ngayon baguhin natin ang laki ng font ng kahon ng callouts PPSlide.Shapes (2) .TeksFrame.TextRange.Font. Laki = 16 Susunod na PPCharts End Sub