Question

我有一个包含很多图片的excel文件。

实际上，这个excel文件是使用转换为excel文件的HTML代码制作的，图像链接到各自的图像。（我使用excel制作文件的原因是因为大约有700多张图像，我不能从1手动制作。完成需要很长时间才能完成）

这是我的excel的HTML代码

<!DOCTYPE html>
<html>
<head>
</head>
<body>
<table>

   <thead>          
      <tr>
         <th>No</th>
         <th>Image</th>
         <th>Title</th>
      </tr>
   </thead>
   <tbody>
        <tr>
         <td >1</td>
         <td><img src="56.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >2</td>
         <td><img src="57.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >3</td>
         <td><img src="58.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >4</td>
         <td><img src="59.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >5</td>
         <td><img src="60.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >6</td>
         <td><img src="61.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >7</td>
         <td><img src="62.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >8</td>
         <td><img src="63.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >9</td>
         <td><img src="64.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >10</td>
         <td><img src="65.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >11</td>
         <td><img src="66.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >12</td>
         <td><img src="67.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >13</td>
         <td><img src="68.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >14</td>
         <td><img src="69.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >15</td>
         <td><img src="70.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >16</td>
         <td><img src="71.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >17</td>
         <td><img src="72.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >18</td>
         <td><img src="73.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >19</td>
         <td><img src="74.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >20</td>
         <td><img src="75.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >21</td>
         <td><img src="76.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >22</td>
         <td><img src="77.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >23</td>
         <td><img src="78.jpg" width="200px"/></td>
         <td></td>
    </tr>
        <tr>
         <td >24</td>
         <td><img src="79.jpg" width="200px"/></td>
         <td></td>
    </tr>
       </tbody>
</table>
</body>
</html>

问题是，当我保存并将excel文件发送到其他PC时，图像将为空白。这是截图

我试图谷歌解决问题，但我仍然无法找到解决方案。

将所有图像转换为嵌入图像的方法是什么？

谢谢

Answer 1

我编写了一个VBA脚本，将所有链接的图像转换为嵌入的图像。

如果形状不是图像，则此脚本会出错。它还假设嵌入的图像在其替代文本中有链接，我发现在我的情况下就是这种情况。

Sub INSERT_PICS()  
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        Debug.Print shp.Name
        Debug.Print shp.AlternativeText
          ActiveSheet.Shapes.AddPicture Filename:=shp.AlternativeText, linktofile:=msoFalse, _
              savewithdocument:=msoCTrue, Left:=shp.Left, Top:=shp.Top, Width:=shp.Width, Height:=shp.Height
          shp.Delete
    Next shp
 End Sub

将链接图像转换为嵌入图像

1 个答案: