複製到excel表格的文本顯示爲圖像

Question

我有一個excel表格，其中包含幾個應該是文本（從網站複製而來）的單元格，但實際上單元格內容的行爲類似於允許選擇的某種圖像其中包含的文字。我想將excel表單導出爲CSV文件，但這些單元格的內容無法導出。由於有數百個單元存在這個問題，我想知道是否有一種將所有圖像文本混合變爲純文本的快速方法，以便它們可以正確地導出到txt/CSV。

在此先感謝。

Answer 1

走出一個肢體在這裏，併爲此假設可能或不會幫助。

隨着對Tim的評論的確認，我假定文本「容器」是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