텍스트상자 내의 텍스트를 찾기 할 수 있을까요~

[공룡333]

Ctrl + F 로 찾기 해서는 텍스트 상자내의 내용은 찾을수 없네요~

텍스트 상자 내의 내용을 찾는 방법이 있을까요~

[윤슬]

안녕하세요? [공룡333]님...

먼저 텍스트 상자내의 문자를 셀로 나타내고 그 문자들중에 찾으면 쉽겠군요.
아래 코딩은 시트내 텍스트 상자의 문자를 A열에 순차적으로 나타내는 코딩입니다.
Sub Test()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
Cells(Rows.Count, 1).End(xlUp).Offset(1) = Sh.TextFrame.Characters.Text
Next Sh
End Sub

그럼 잘 해결되시길... ^^*