Office-Excel

Posted on Edited on Views: Changyan:

0.1. EXCEL 批量添加图片

1
<table><img src="图片链接" height="42" width="42"/>

宽高可提前修改为对应值 复制html文本，选择性粘贴”，选择Unicode文本。

可用于条码的批量生成，早期有规律的网络图片爬虫。

实例网址 https://image-charts.com/chart?chs=150x150&cht=qr&chl=Hello%20world&choe=UTF-8

0.2. EXCEL 图片居中

1
2
3
4
5
6
7
Sub dq()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
End Sub