List all external links in a Powerpoint file into a sheet using VBA

[Enter1]

Hello All,

I have an existing presentation (a monthly report) that has various objects (charts, tables) linked to external Excel sources. Can any of you help me with a code that will enable to list all the links into a sheet, may be with the slide number, object dimensions, the underlying cell ranges (which you have answered in my earlier thread) its positions in the slide etc.(sorry I know im asking too much, but thats what my requirement is).

When I speak about position, this is what I meant

[TABLE="width: 650"]
<COLGROUP><COL style="WIDTH: 48pt" width=64><COL style="WIDTH: 119pt; mso-width-source: userset; mso-width-alt: 5778" span=2 width=158><COL style="WIDTH: 94pt; mso-width-source: userset; mso-width-alt: 4571" width=125><COL style="WIDTH: 55pt; mso-width-source: userset; mso-width-alt: 2669" width=73><COL style="WIDTH: 56pt; mso-width-source: userset; mso-width-alt: 2706" width=74><COL style="WIDTH: 44pt; mso-width-source: userset; mso-width-alt: 2121" width=58><COL style="WIDTH: 23pt; mso-width-source: userset; mso-width-alt: 1133" span=2 width=31><COL style="WIDTH: 33pt; mso-width-source: userset; mso-width-alt: 1609" width=44><COL style="WIDTH: 36pt; mso-width-source: userset; mso-width-alt: 1755" width=48><TBODY>[TR]
[TD="class: xl68, width: 64, bgcolor: silver"]Slide NO[/TD]
[TD="class: xl68, width: 158, bgcolor: silver"]Workbook Folder[/TD]
[TD="class: xl68, width: 158, bgcolor: silver"]Workbook Name[/TD]
[TD="class: xl68, width: 125, bgcolor: silver"]Sheet Name[/TD]
[TD="class: xl68, width: 73, bgcolor: silver"]Chart Title[/TD]
[TD="class: xl68, width: 74, bgcolor: silver"]Range[/TD]
[TD="class: xl68, width: 58, bgcolor: silver"]Position[/TD]
[TD="class: xl68, width: 31, bgcolor: silver"]Left[/TD]
[TD="class: xl68, width: 31, bgcolor: silver"]Top[/TD]
[TD="class: xl68, width: 44, bgcolor: silver"]Width[/TD]
[TD="class: xl68, width: 48, bgcolor: silver"]Height[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]1[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Forecast[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Forecast Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Mortgages[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]B12:E26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]D1[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]12[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]65[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]335[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]205[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]1[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Dlq[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Delinquency Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Mortgages[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]I12:M26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]D2[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]362[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]65[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]335[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]205[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]1[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Forecast[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Forecast Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Cards[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]O12:T26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]D3[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]12[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]278[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]335[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]205[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]1[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Dlq[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Delinquency Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Cards[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]V12:AA26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]D4[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]362[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]278[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]335[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]205[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]2[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Forecast[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Forecast Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Other Retail[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]AC12:AH26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]A1[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]15[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]60[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]680[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]422[/TD]
[/TR]
[TR]
[TD="class: xl65, bgcolor: #ccffcc, align: right"]3[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]J:\Risk\ADMIN\Dlq[/TD]
[TD="class: xl65, bgcolor: #ccffcc"]Delinquency Charts.xls[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]Other Retail[/TD]
[TD="class: xl66, bgcolor: #ccffcc"] [/TD]
[TD="class: xl66, bgcolor: #ccffcc"]AJ12:AO26[/TD]
[TD="class: xl66, bgcolor: #ccffcc"]D1[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]12[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]65[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]335[/TD]
[TD="class: xl67, bgcolor: #ffff99, align: right"]205[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="class: xl69, width: 519, bgcolor: #ccffcc, colspan: 6"]Position Column definition : Eg - if there is only one object in a given slide then the chart / table can be displayed as A1
For a slide containing 2 objects then B1,B2 ;
For a slide containing 3 objects then C1,C2,C3 ; and
For a slide containing 4 objects (charts/tables) then D1,D2,D3, D4 respectively
.. so on till 20 objects as - Slide with 20 objects then T1, T2, .. T20[/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"][/TD]
[/TR]
</TBODY>[/TABLE]


Truly appreciate you help in this.

Thanks in advance

 

[Enter1]

Hello All,

Can anyone here help me a solution with the above thread (query), basically I want to List all addresses of Powerpoint embedded excel objects / excel chart objects onto an Excel sheet. If possible, in the displayed output format. Kind of stuck at this stage.

Thanks in advance.

 

[Enter1]

Any one can you pls help