如何既输出图片，又输出字符串

cuixiaoyan1020 · 发表于 2009-7-25 11:40:36

一个表格中有字符串也有图片，我通过二维数组实现，如何输出表格中所有的内容（如何既能输出字符，又能输出图片呢)？用vbscript脚本如何写呢？

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

远野志贵 · 发表于 2009-7-25 11:42:56

图片貌似不能输出！！！

cuixiaoyan1020 · 发表于 2009-7-25 11:59:09

是的，只能输出字符串。

lijinshui · 发表于 2009-7-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图片啊

lijinshui · 发表于 2009-7-25 12:52:41

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:31

我想既要输出字符串，又要输出图片，不仅仅是输出图片。

sunhope800 · 发表于 2009-8-13 15:23:45

学习了，谢谢！

chooseyou123 · 发表于 2009-8-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

高手，学习了

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 如何既输出图片，又输出字符串

相关帖子

回复 2# 的帖子

回复 5# 的帖子

站长推荐 /1