超难度的批註图片导出

joyark · 发表于 2011-9-30 00:54:15

本帖最后由 joyark 于 2011-9-30 10:38 编辑

超难度的批註图片导出
謝謝幫忙解決

文件-另存爲-HTML格式，你可以找到所有圖片文件。

tmtony · 发表于 2011-9-30 09:35:31

好像是批注中的背景图。
找小妖来试试？

tmtony · 发表于 2011-9-30 10:14:33

只找到加图片，没有找到导出方法，估计要用API
Sub InsertComment()
Dim cmt As Comment
Set cmt = Range("A20").AddComment
With cmt
.Text Text:=""
.Shape.Fill.UserPicture ("C:\Images\test.jpg")
.Visible = True
End With
End Sub

joyark · 发表于 2011-9-30 10:39:20

tmtony 发表于 2011-9-30 10:14
只找到加图片，没有找到导出方法，估计要用API
Sub InsertComment()
Dim cmt As Comment

可以保存
文件-另存爲-HTML格式，你可以找到所有圖片文件。
謝謝幫忙

冰心8549 · 发表于 2011-9-30 11:07:29

谢谢分享

tmtony · 发表于 2011-9-30 11:31:36

joyark 发表于 2011-9-30 10:39
可以保存
文件-另存爲-HTML格式，你可以找到所有圖片文件。
謝謝幫忙

好办法

yehf · 发表于 2011-9-30 13:29:56

用一个笨方法先解决问题
循环一次每个有图片批注的单元格,将每个单元格复制到一个新的xls文件,然后另存为一个html文件,也就是说,每保存一次,只会有一个图片文件,然后在html的文件夹里面将图片文件改名为单元格的内容.

pureshadow · 发表于 2011-9-30 13:43:32

V白妖飘过~~~~

joyark · 发表于 2011-9-30 13:45:22

yehf 发表于 2011-9-30 13:29
用一个笨方法先解决问题
循环一次每个有图片批注的单元格,将每个单元格复制到一个新的xls文件,然后另存为一 ...

文件-另存爲-HTML格式，你可以找到所有圖片文件。就所有圖片都在

yehf · 发表于 2011-9-30 13:49:07

是所有图片都在,但文件名不是你单元格里面的内容啊

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

超难度的批註图片导出

本帖子中包含更多资源

点评

群介绍
主题无相 (随机显示版	同地区群块其他地区)