Hi everyone

I want when I click the object that have an alt text, the alt text will appear in the other shape's text frame

and I got the code, here is the code

Sub changeText(oshp As Shape)
    Dim osld As Slide
    Dim otxtR As TextRange
    Set osld = oshp.Parent
    Set otxtR = osld.Shapes("mendatar").TextFrame.TextRange
    otxtR = oshp.AlternativeText
End Sub
But, I want the alt text that I separated with new line (or other sign like semicolon, etc) will appear in other shape that different with alt before the separator

Like this :
Shape A have an alt text : "This is alt text ; This will appear in different shape"

When I click Shape A, "This is alt text" will appear in Shape B, and "This will appear in different shape" will appear in shape C

How to do that ?
Thank you