Show alt text from a shape to others shape

[yrald47]

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

[Paul_Hossler]

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




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

[yrald47]

I'll try it, thanks

[yrald47]

Great, its work, thank you so much

[yrald47]

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

[Paul_Hossler]

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