生活中有阳光，就会充满微笑;工作中有努力，就会充满希望;生命中有温暖，就会充满幸福。
如何输出图片
上一篇 / 下一篇 2009-07-27 08:49:58 / 个人分类：问题
查看( 450 ) /
评论( 7 )
TAG:
-
远野志贵 发布于2009-07-25 11:42:56
-
图片貌似不能输出！！！
-
cuixiaoyan1020 发布于2009-07-25 11:59:09
-
回复 2# 的帖子
是的，只能输出字符串。
-
lijinshui 发布于2009-07-25 12:37:21
-
Syntax
object.Output Verify
Syntax Details
Argument Description
object A test object of type Image.
Verify Required. A Variant value.
The output object that contains the details of the data to output.
可以OUTPUT图片啊
-
-
Sub SaveShape()
Dim myShape As Shape, i_Temp As Integer
' On Error Resume Next
For Each mySlide In ActiveWorkbook.Sheet
For Each myShape In mySlide.Shapes
i_Temp = i_Temp + 1
'以gif格式导出图片，用户也可以根据需要导成其他格式
'如果用户对导出的图片大小不满意，可自行添加两个参数ScaleWidth，ScaleHeight
myShape.Export pathName:="D:\TST\" & i_Temp & ".gif", Filter:=".gif"
Next
Next
End Sub
上面的代码没有运行过,你可以实验一下,看看如何
-
-
回复 5# 的帖子
我想既要输出字符串，又要输出图片，不仅仅是输出图片。
-
sunhope800发布于2009-08-13 15:23:45
-
学习了，谢谢！
-
chooseyou123 发布于2009-08-13 21:51:29
-
Sub SaveShape()
Dim myShape As Shape, i_Temp As Integer
' On Error Resume Next
For Each mySlide In ActiveWorkbook.Sheet
For Each myShape In mySlide.Shapes
i_Temp = i_Temp + 1
'以gif格式导出图片，用户也可以根据需要导成其他格式
'如果用户对导出的图片大小不满意，可自行添加两个参数ScaleWidth，ScaleHeight
myShape.Export pathName:="D:\TST\" & i_Temp & ".gif", Filter:=".gif"
Next
Next
End Sub
高手，学习了
