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
Post a Comment