PowerPoint 2016 VBA设置PlotArea属性时出现方法调用失败报错

Hey there, let's work through this frustrating error you're seeing—nothing's worse than code that ran flawlessly in older Office versions breaking after an upgrade, right? The "InsideHeight" failure usually stems from changes to PowerPoint 2016's chart rendering engine, which tightened up how PlotArea properties can be modified. Here are the most reliable fixes:

1. Ensure the chart is fully rendered before making changes #

PowerPoint 2016 sometimes needs a split second to finish rendering a chart before you can tweak its PlotArea. Force a screen update and let the application catch up with these lines right before your property modifications:

' Refresh the slide to ensure the chart is initialized
ActiveWindow.View.GotoSlide ActiveWindow.View.Slide.SlideIndex
DoEvents

2. Resize the ChartArea first, then adjust the PlotArea #

In newer Office versions, the ChartArea's dimensions act as a container for the PlotArea. If you try to set PlotArea properties before defining the ChartArea's size, you might hit layout conflicts. Try this order:

With ActivePresentation.Slides(1).Shapes("Chart 1").Chart
    ' First set the outer ChartArea dimensions
    .ChartArea.Height = 400
    .ChartArea.Width = 600
    
    ' Now adjust the inner PlotArea properties
    .PlotArea.Left = 50
    .PlotArea.Top = 50
    .PlotArea.InsideHeight = 300
    .PlotArea.InsideWidth = 500
End With

3. Swap InsideHeight/InsideWidth for direct Height/Width properties #

The InsideHeight property refers to the space inside the PlotArea's borders, which can be locked by PowerPoint's automatic layout logic. Using the direct Height and Width properties (which include borders) often bypasses this issue. Just adjust your values slightly to account for the border space:

With ActivePresentation.Slides(1).Shapes("Chart 1").Chart
    ' Replace InsideHeight with Height
    .PlotArea.Height = 310 ' Adjusted to account for borders
    ' Replace InsideWidth with Width
    .PlotArea.Width = 510
    .PlotArea.Left = 50
    .PlotArea.Top = 50
End With

4. Disable automatic scaling for the PlotArea #

PowerPoint 2016's automatic layout features can override your manual adjustments. Turn off auto-scaling first to lock in your custom settings:

With ActivePresentation.Slides(1).Shapes("Chart 1").Chart
    ' Disable automatic scaling of the PlotArea
    .PlotArea.AutoScale = False
    
    ' Now apply your custom property values
    .PlotArea.Left = 50
    .PlotArea.Top = 50
    .PlotArea.InsideHeight = 300
End With

Quick Debugging Tip #

If you're still stuck, double-check that you're referencing the correct chart shape. Add Debug.Print .PlotArea.Name inside your With block to confirm you're targeting the right object—sometimes a typo in the shape name (like "Chart 1" vs "Chart 2") can cause unexpected errors.

内容的提问来源于stack exchange，提问作者Vijay Agarwal