By using expertatexcel.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

expertatexcel.com

 


Setting a Hyperlink on a cell in a ppt table

shp.Table.Cell(i, c).Shape.TextFrame.TextRange.Text = lPage & "-" & lEndPage
shp.Table.Cell(i, c).Shape.TextFrame.TextRange.ActionSettings(ppMouseClick).Action = ppActionHyperlink
shp.Table.Cell(i, c).Shape.TextFrame.TextRange.ActionSettings(ppMouseClick).Hypterlink.Subaddress = lPage