J
Jenn
If anyone can help me, I'd be very appreciative!
I am trying to set the address and screentips on hyperlinks from the
contents of an Excel Sheet.
in this case, wbXL is the Excel File. That part works.
But -- If I set the screentip ONLY (no address) or set the screeptip AFTER
the Address, the screentip updates correctly. But if I set the address
afterwards, it clears the screentip. Furthermore, and most importantly -- I
can't get the address to update. The msgboxes that pop up for debugging both
show the updated address correctly -- but it isn't reflected in the UI.
Please help me if you can!! Thanks!!
For Each oSl In ActivePresentation.Slides
For Each oHl In oSl.Hyperlinks
oHl.Address = wbXL.Cells(ctrInt, 1).Value
MsgBox "1" & oHl.Address
oHl.ScreenTip = wbXL.Cells(ctrInt, 2).Value
MsgBox "2" & oHl.Address
ctrInt = ctrInt + 1
Next ' hyperlink
Next ' Slide
I am trying to set the address and screentips on hyperlinks from the
contents of an Excel Sheet.
in this case, wbXL is the Excel File. That part works.
But -- If I set the screentip ONLY (no address) or set the screeptip AFTER
the Address, the screentip updates correctly. But if I set the address
afterwards, it clears the screentip. Furthermore, and most importantly -- I
can't get the address to update. The msgboxes that pop up for debugging both
show the updated address correctly -- but it isn't reflected in the UI.
Please help me if you can!! Thanks!!
For Each oSl In ActivePresentation.Slides
For Each oHl In oSl.Hyperlinks
oHl.Address = wbXL.Cells(ctrInt, 1).Value
MsgBox "1" & oHl.Address
oHl.ScreenTip = wbXL.Cells(ctrInt, 2).Value
MsgBox "2" & oHl.Address
ctrInt = ctrInt + 1
Next ' hyperlink
Next ' Slide