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 MakePicQuads(ByVal ControlID As IRibbonControl) 'This macro will copy all Charts to a PowerPoint Presentation 'Each chart will become part of a 'quad' slide Dim myPPT As New PowerPoint.Application Dim myPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim thisChart As Chart Dim thisShape As Shape Dim thisSheet As Worksheet Dim quadCount As Integer myPPT.Visible = True Set myPres = myPPT.Presentations.Add(msoTrue) myPPT.ActiveWindow.ViewType = ppViewSlide quadCount = 0 For Each thisSheet In Application.ActiveWorkbook.Worksheets For Each thisShape In thisSheet.Shapes ' copy chart If thisShape.Type = msoChart Then Set thisChart = thisShape.Chart thisChart.CopyPicture If quadCount = 0 Then ' Add a new slide SlideCount = myPres.Slides.Count Set PPSlide = myPres.Slides.Add(SlideCount + 1, ppLayoutBlank) myPPT.ActiveWindow.View.GotoSlide PPSlide.SlideIndex End If ' paste and select the chart 'PPSlide.Shapes.PasteSpecial(ppPasteOLEObject, , , , , msoFalse).Select PPSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile, , , , , msoFalse 'Set the size and location depending on which slide it is. myPPT.ActiveWindow.Selection.ShapeRange.Height = 180 myPPT.ActiveWindow.Selection.ShapeRange.Width = 325 myPPT.ActiveWindow.Selection.ShapeRange.Top = IIf(quadCount > 1, 300, 100) myPPT.ActiveWindow.Selection.ShapeRange.Left = IIf(quadCount Mod 2 = 0, 30, 370) quadCount = quadCount + 1 If quadCount > 3 Then quadCount = 0 End If End If Next Next End Sub
Join the community of 500,000 technology professionals and ask your questions.