Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub SlideCopy() ' Variable declarations. Dim SourceView, answer As Integer Dim SourceSlides, NumPres, x As Long ' Stores the current view of the source presentation. SourceView = ActiveWindow.ViewType ' Count the number of slides in source presentation. SourceSlides = objPresentation.Slides.Count 'objPresentatio.Slides.Count ' ' Create a new presentation for the designation. Presentations.Add Set objPresentation2 = ActivePresentation With objPresentation2.PageSetup .SlideHeight = objPresentation.PageSetup.SlideHeight .SlideWidth = objPresentation.PageSetup.SlideWidth End With ' Switch to the source presentation. objPresentation.Windows(1).Activate ' Loop through all the slides and copy them to destination one by one. For x = 1 To SourceSlides ' Select the first slide in the presentation and copy it. objPresentation.Slides(1).Copy 'ActiveWindow.Selection.Copy ' Switch to destination presentation. objPresentation2.Windows(1).Activate ' Create a new slide. objPresentation2.Slides.Add _ objPresentation2.Slides.Count + 1, ppLayoutBlank ' Make sure the new presentation is slide view. If ActiveWindow.ViewType <> ppViewSlide Then ActiveWindow.ViewType = ppViewSlide End If ' Switch to the proper slide. ActiveWindow.View.GotoSlide Index:=objPresentation2.Slides.Count ' Paste the slide. objPresentation2.Slides.Paste 'ActiveWindow.View.Paste ' Unselect the object. ActiveWindow.Selection.Unselect ' Switch to source. objPresentation.Windows(1).Activate Next x ' Restore the current view to source. ActiveWindow.ViewType = SourceView End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|ActiveX component can't create object VBA how to fix it||6||61|
|Excel - lookup two values and return a value||3||30|
|Records being deleted when Condition Not Met||30||28|
|Unique List in UserForm||3||26|
Join the community of 500,000 technology professionals and ask your questions.