,可以通过以下步骤实现:
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
上述VBA代码会遍历Powerpoint演示文稿中的每个幻灯片,检查是否存在嵌入的Excel图表,并调整其大小为400x300像素。你可以根据需要修改代码中的图表大小。
推荐的腾讯云相关产品:腾讯云云服务器(CVM)和腾讯云对象存储(COS)。
领取专属 10元无门槛券
手把手带您无忧上云