在Powerpoint中使用VBA调整Excel图表大小

Sub AdjustExcelChartSize()
    Dim pptSlide As Slide
    Dim pptShape As Shape
    Dim excelChart As Object
    
    ' 遍历每个Powerpoint幻灯片
    For Each pptSlide In ActivePresentation.Slides
        ' 遍历每个幻灯片中的形状
        For Each pptShape In pptSlide.Shapes
            ' 检查形状是否为嵌入的Excel图表
            If pptShape.Type = msoEmbeddedOLEObject Then
                ' 获取Excel图表对象
                Set excelChart = pptShape.OLEFormat.Object
                
                ' 调整Excel图表大小
                excelChart.ChartArea.Width = 400
                excelChart.ChartArea.Height = 300
            End If
        Next pptShape
    Next pptSlide
End Sub