текст, скопированный в лист excel, отображается как изображение

Question

Лист excel У меня есть несколько ячеек с тем, что должно было быть текстовым (которое было скопировано с веб-сайтов), но на самом деле содержимое ячейки ведет себя как изображение определенного типа, которое позволяет выбирать текст, содержащийся в нем. Я хочу экспортировать Excel-лист как CSV-файл, но содержимое этих ячеек не может быть экспортировано. Поскольку есть сотни ячеек с этой проблемой, я задаюсь вопросом, есть ли быстрый способ превратить все эти гибриды изображений в текстовый текст, чтобы они могли быть экспортированы в txt/CSV должным образом.

Заранее спасибо.

Answer 1

Выходите на конечность здесь и для чего это предположение может или не поможет.

С признательностью к комментарию Тима, я предполагаю, что текст «контейнеры» - это формы Excel и расположенные на активном листе.

Этот код будет извлекать текст из каждой формы и помещать его в пустую ячейку рядом с верхней левой ячейкой формы перед удалением фигуры. Он не различает по форме и не распознает, содержатся ли фигуры внутри групп, и не помещает извлеченный текст в список. Но, если это поможет, вы можете уточнить код соответствующим образом.

Sub textFromShapes() 
Dim shp As Shape 
Dim shpLoc As String 

    For Each shp In ActiveSheet.Shapes 
     With shp 
      shpLoc = .TopLeftCell.Address 
       Do Until Range(shpLoc) = "" 
        shpLoc = Range(shpLoc).Offset(1, 0).Address 
       Loop 
       Range(shpLoc) = .TextFrame.Characters.Text 
       .Delete 
     End With 
    Next 

End Sub