超难度的批註图片导出

tmtony

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

tmtony

只找到加图片，没有找到导出方法，估计要用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

tmtony

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

好办法

tmtony

PICTURE OLE转文件， API应可实现的。 以前有写过 VB的PICTURE 转成文件。网上这方面的内容比较多。
看来程序就是这样，每人想一步。众人拾柴火焰高，每个人都有别人学习的地方。