Найти текст в текстовом поле в Excel

Question

Я пришел к выводу, что диалоговое окно "Найти и заменить" в Excel не может найти текст в текстовых полях. Я думаю, что мне нужен макрос, чтобы решить это.

Как я могу найти текст в текстовых полях:

1. в активном листе
2. во всех листах

Спасибо.

Вот пример изображения, чтобы показать, что я имею в виду под текстовым полем:

Answer 1

Предполагая, что вы используете только текстовые поля (и никаких других объектов), этот код должен работать для вас (хотя я не пробовал его в Excel 2016):

Sub Search()
    Dim shaShape As Shape
    For Each shaShape In ActiveSheet.Shapes
        If shaShape.DrawingObject.Text Like "*all*" Then  '<== specify you're search term
            shaShape.Select
            Exit For
        End If
    Next shaShape
End Sub