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

标签 excel image

我有一个 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 时,图像将是空白的。这是屏幕截图

enter image description here

我试图用谷歌搜索这个问题,但我仍然找不到解决方案。

有什么方法可以将所有图像转换为嵌入图像?

谢谢

最佳答案

我编写了一个 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

关于excel - 将链接图像转换为嵌入图像,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46147800/

相关文章:

arrays - 同一属性的属性过程定义不一致[使用数组]

excel - 如何按 "numerical"顺序对大纲数字进行排序?

VBA Excel,VLookup 多值计数

VBA使用Sendkey执行Excel热键

javascript - 如何在从数据库异步加载中用占位符替换不存在的图像

ios - 如何在不降低质量的情况下放大微小的文本图像?

python - 根据列标题获取Excel列字母 - Python

c - C中的图像平滑

python - 使用Python+PIL或Imagemagick创建文本蒙版

javascript - 访问 javascript 数组会产生意想不到的结果