By using you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

Become an Σxpert at Σ


Standard VBA/Excel (32 of 1182)

(Clear Filter = *PPT*)

Dim PPT As Powerpoint.Application
Set PPT = CreateObject("Powerpoint.Application")
Set PPApp = GetObject(, "Powerpoint.Application")
PPT.Visible = True
PPT.Presentations.Open sFile, ReadOnly:=msoTrue
deleteSlide ' ppt routine
Generate_deck - udf - that runs commands in spreadsheet to generate ppt slides
CopyChartToPPT ... udf - very important
UpdateTOC - code to update ppt toc
PPT.ActivePresentation.SaveAs sFile
LogWaitTime - track time my machines is unavailable due to PPT code running
GenerateAllExcelAndDecks - batch - run multiple SQL's and Creates multiple PPT decks
Application.Run - can be used to run a passed function on parameters - code in pptools - Callback_testing
PPT test code to update embedded spreadsheet in ppt
GetActivePPT - get a reference to active ppt
Set ppttemplate = PPT.Presentations.Open(sFile, ReadOnly = msoTrue
PPT.ActiveWindow.Selection.SlideRange.SlideNumber - get the active slides #
PPT.ActivePresentation.Slides(n) - the nth slide oblect name to use in a with stmt
For each shp in PPT.ActivePresentation.Slides(2)
If like "xxxxx"
PPT.ActivePresntation.Slides.count - gets the last slide
pptshp.Table.Cell(i, 1).Shape.TextFrame.TextRange.Text - gets the text from a pptshp cell
Setting a Hyperlink on a cell in a ppt table
UpdateHyperLinkTOC - PPT
PPT Object Model