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
1 回答
这应该让你开始 . 我将代表幻灯片编号 . 您只需将变量写入Excel工作表即可 .