vba - Copy all Powerpoint Picture Hyperlink to Excel (loop) -


i trying create loop go through each picture in slideshow , paste each picture's corresponding hyperlink in excel document list

i loop loop through pictures in order left right (ie in this screenshot attached, select upper left image (target's ad), next image right (rite-aid's ad), cvs's, walgreens', , go next row starts benadryl walgreens , repeat process) here code have far

'code getting hyperlinks of images in powerpoint- , pasting excel  sub getlinks()  dim pptslide slide dim pptshape shape  dim ppthlstring string   dim xlapp object dim xlworkbook object  set xlapp = createobject("excel.application")  xlapp.visible = true set xlworkbook = xlapp.workbooks.open("c:\weekly ad recaps\non-fsi\lookuptable non fsi.xlsm") = 0  each pptslide in activepresentation.slides each pptshape in pptslide.shapes                 = + 1     if pptshape.type = shape         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 

the slideshow has dozen slides formatted exact same way. macro streamline process cut down on weekly workload significantly

thanks in advance can help!!


Comments

Popular posts from this blog

node.js - Node js - Trying to send POST request, but it is not loading javascript content -

javascript - Replicate keyboard event with html button -

javascript - Web audio api 5.1 surround example not working in firefox -