Show alt text from a shape to others shape

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

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

I assumed a semi-colon as seperator, and B and C as the other shapes

Code:

---

Option Explicit
'  A to B and C
'  alt text in A = "This is alt text ; This will appear in different shape"
'  "This is alt text" to B
'  "This will appear in different shape" to C

Sub changeText(oShape As Shape)
    Dim s As String
    Dim i As Long
   
    s = oShape.AlternativeText
    i = InStr(s, ";")
       
    oShape.Parent.Shapes("B").TextFrame.TextRange.Text = Trim(Left(s, i - 1))
    oShape.Parent.Shapes("C").TextFrame.TextRange.Text = Trim(Right(s, Len(s) - i))
End Sub

---

I'll try it, thanks

Great, its work, thank you so much

how to mark it to be solved ? i cant find it
how to vote your reply ?

Above your first post is [Thread Tools], one of which [Mark Solved]

To add to a user's rep, there's a Star lower left -- I think you need so many posts before you see it -- not sure, but thanks for the thought anyway