将所有Powerpoint图片超链接复制到Excel（循环）

我试图创建一个循环，遍历幻灯片中的每张图片，并将每张图片对应的超链接粘贴到excel文档中作为列表

我还希望循环按从左到右的顺序循环图片（即在附件中，选择左上方的图像（目标的广告），然后选择右侧的下一个图像（Rite Aid的广告），然后是CVS，然后是Walgreens'，然后转到下一行，该行以Benadryl开始，然后重复该过程） 这是我到目前为止的代码

'Code for getting hyperlinks of images in Powerpoint- and pasting into excel

Sub getLinks()

Dim pptSlide As Slide
Dim pptShape As Shape

Dim pptHLstring As String


Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("C:\Weekly Ad Recaps\Non-FSI\lookuptable Non FSI.xlsm")
i = 0

For Each pptSlide In ActivePresentation.Slides
For Each pptShape In pptSlide.Shapes
                i = i + 1
    If pptShape.Type = Shape Then
        On Error Resume Next
        xlWorkBook.Sheets("PPT H-Link Index").Range(Cells(i, 1)) = pptShape.Hyperlink.Address
        On Error GoTo 0
    End If

Next pptShape
DoEvents
Next pptSlide

End Sub

幻灯片放映有十几张幻灯片，所有幻灯片的格式都完全相同。 简化此过程的宏将显著减少我每周的工作量

---

提前感谢任何能提供帮助的人

这些图像是否组织在一个表中？不，每个图像都是它自己的独立实体。但是每张幻灯片的格式都是12张图片，每个星期都在完全相同的位置，也许是相同的位置和相同的Z顺序？