Sample of VBA code to format chart on each slide the same demensions

Thanks for the code.

Every box on a slide is a shape. This means that if you have a title on a slide with 2 charts, you have 3 shapes on the slide. So it's a good idea to test whether the shape has a chart is before applying the chart resizing:

  With ActiveWindow.Selection.ShapeRange

    If .HasChart Then

      Perform Action

    End If

  End With

You specced your variables as Doubles, but if you check the help for Width and the other parameters, PowerPoint uses a Single. If you specify the number type when declaring, it has to be the same type that the parameter actually uses.

You're depending on the Selection object. This can be a good thing for the first selected chart that is used as the position model for the others. But to apply that position automatically to all the other charts, the selection object won't work. Instead you need to loop through each slide in the presentation. On each slide, you loop through all shapes, checking for whether a shape has a chart. Then you only apply the positioning to shapes that meet the criteria:

Sub ResizeCharts()

  Dim w As Single

  Dim h As Single

  Dim l As Single

  Dim t As Single

  With ActiveWindow.Selection.ShapeRange(1)

    If .HasChart = True Then

      w = .Width

      h = .Height

      l = .Left

      t = .Top

    Else

      MsgBox "Please select a chart with the correct position and size"

    End If

  End With

  Dim objSlide As Slide, objShape As Shape

  For Each objSlide In ActivePresentation.Slides

    For Each objShape In objSlide.Shapes

      If objShape.HasChart Then

        With objShape

          .Width = w

          .Height = h

          .Left = l

          .Top = t

        End With

      End If

    Next objShape

  Next objSlide

End Sub

Please note that if there are ever 2 charts per slide, they will end up on top of one another using this code.

There are 2 tricks to finding the syntax for the object that you want to work with. One is to use the VBA Editor's Autocomplete. After you type:

With ActiveWindows.Selection.ShapeRange(1)

then type a dot, the VBE will pop up a list of properties and methods that can be used. For what you're trying to do .Chart looks more likely. Once you choose that and type another dot, another list pops up, the one including PlotArea. Select that and type another dot and a list appears that includes Height, Width etc.:

ActiveWindow.Selection.ShapeRange(1).Chart.PlotArea.Height

The other technique that helps discover properties and methods is the Object Browser in the VBE. If you choose View>Object Browser, you'll see a list of Classes that includes Chart. Click on Chart to see all the properties and methods that apply to it. Select any of those, right-click and choose Help to get whatever detail is in the VBA help system. In general, VBA help has declined in quality over time, so it can be helpful to have older versions installed, like Office 2007 or 2010.

Setting a font would be simpler if you could choose .Chart.ChartArea.Font, but instead you have to drill down with every element with statements like .Chart.Legend.Format.TextFrame2.TextRange.Font. It might be easiest to control the font by setting the theme for the presentation. Then charts created in PowerPoint normally automatically use the theme font.