列出excel中的power-point图表和对象的属性

Question

我需要一些帮助。所以我有一个带有~20张幻灯片的功能点演示文稿，每张幻灯片包含大约3-4张图表。现在，我需要在excel表中使用VBA宏来解决以下问题：  对于每张幻灯片  对于每个对象  1）幻灯片名称/号码  2）图表名称  3）图表类型  4）图表高度  5）图表宽度  7）图表 - 位置 - 左  7）图表 - 位置 - 顶部

请帮助：）

Answer 1

这应该让你开始。我将代表幻灯片编号。您只需要将变量写入Excel工作表。

For i = 1 to ActivePresentation.Slides(.Slides.Count).SlideNumber
   For Each s In ActivePresentation.Slides(i).Shapes
   Dim x, y, Z, a, b, C, D, e As String
    Let x =s.Name
    Let y = s.Type
    Let Z = s.Id
    Let a = s.OLEFormat.ProgID
    Let b = s.Height
    Let c = s.Width
    Let D = s.Left
    Let e = s.Top
Next s
Next i