VBS压缩图片代码,OWC10.ChartSpace

最新推荐文章于 2020-07-21 20:33:54 发布

Regean

最新推荐文章于 2020-07-21 20:33:54 发布

阅读量871

点赞数

分类专栏： VB ASP 文章标签： function object file

本文链接：https://blog.csdn.net/genzhu_li/article/details/6583249

版权

VB 同时被 2 个专栏收录

2 篇文章 0 订阅

订阅专栏

ASP

1 篇文章 0 订阅

订阅专栏

这段代码使用的是OWC10.ChartSpace,

Function ResizeImage(FileName, OutFormat)
Dim Chs, chConstants, rsSave
'获取图片宽高
Dim rsPict, FSO, objShell, objFolder, objItem, strWidth, strHeight, strW, strH, strSize, strS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(FSO.GetParentFolderName(FileName))
Set objItem = objFolder.ParseName(FSO.GetFileName(FileName))
   strWidth = objFolder.getdetailsof(objItem, 27)
   strHeight = objFolder.getdetailsof(objItem, 28)
   strW = Split(strWidth, " ")
   strH = Split(strHeight, " ")
   If strW(0) > 200 Then
      strWidth = 150
      strHeight = strH(0) * 150 / strW(0)
   End If
   If strHeight > 200 Then
      strHeight = 200
      strWidth = strW(0) * 200 / strH(0)
   End If
'Create an OWC chart object
strS=filename
Set Chs = CreateObject("OWC10.ChartSpace")
Set chConstants = Chs.Constants
'Set background of the chart
Chs.Interior.SetTextured strS, 5, , 7
Chs.border.Color = -3
'export the picture to a file
'Chs.ExportPicture OutFileName, OutFormat, Width, Height
'or return it as a binary data for BinaryWrite
ResizeImage = Chs.GetPicture(OutFormat, strWidth, strHeight)
'rsSave = Chs.exportpicture(FileName, "jpg", Width, Height)

End Function