8 个解决方案
#1
怎么没有人回答,我先自己顶一下.希望各位达人能给予解答.谢谢啊!!
#2
呵呵，问题终于搞定了。
#3
白送分啦，问题已解决。回复的前2位加分啦啊！
#4
我也想知道怎么解决的，能给看看吗，先谢了！
#5
能说下，解决的方法吗？我也在做这方面的。
#6
直接调用Excel的AddPicture方法，例子：
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
#7
Excel好像只能LoadFromFile而不能LoadFromStream。所以我先把图片先保存到本地。没办法，先做出来再说！呵呵
#8
OK!谢谢了。
#1
怎么没有人回答,我先自己顶一下.希望各位达人能给予解答.谢谢啊!!
#2
呵呵，问题终于搞定了。
#3
白送分啦，问题已解决。回复的前2位加分啦啊！
#4
我也想知道怎么解决的，能给看看吗，先谢了！
#5
能说下，解决的方法吗？我也在做这方面的。
#6
直接调用Excel的AddPicture方法，例子：
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
#7
Excel好像只能LoadFromFile而不能LoadFromStream。所以我先把图片先保存到本地。没办法，先做出来再说！呵呵
#8
OK!谢谢了。