51Testing软件测试论坛

标题: 如何既输出图片，又输出字符串 [打印本页]

作者: cuixiaoyan1020 时间: 2009-7-25 11:40
标题: 如何既输出图片，又输出字符串
一个表格中有字符串也有图片，我通过二维数组实现，如何输出表格中所有的内容（如何既能输出字符，又能输出图片呢)？用vbscript脚本如何写呢？

[ 本帖最后由 cuixiaoyan1020 于 2009-7-27 08:59 编辑 ]

作者: 远野志贵 时间: 2009-7-25 11:42
图片貌似不能输出！！！

作者: cuixiaoyan1020 时间: 2009-7-25 11:59
标题: 回复 2# 的帖子
是的，只能输出字符串。

作者: lijinshui 时间: 2009-7-25 12:37
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图片啊

作者: lijinshui 时间: 2009-7-25 12:52
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

上面的代码没有运行过,你可以实验一下,看看如何

作者: cuixiaoyan1020 时间: 2009-7-27 08:52
标题: 回复 5# 的帖子
我想既要输出字符串，又要输出图片，不仅仅是输出图片。

作者: sunhope800 时间: 2009-8-13 15:23
学习了，谢谢！

作者: chooseyou123 时间: 2009-8-13 21:51
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

高手，学习了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)