[求助]请教守柔版主一个有关宏的问题

w7321

7d1baMxn.rar (421 Bytes, 下载次数: 19)

2005-12-7 10:26 上传

点击文件名下载附件
[求助]请教守柔版主一个有关宏的问题

守柔老师：

你好，现有一个非常难解的问题要再次麻烦您！

我想将此文件中的第二列图片以第一列的代码命名另存到我的电脑中，也不知用什么方法可以操作，最后我将其用FRONTPAGE打开，但是不知用宏命令怎么编写？或者有什么更好的方法，敬请守柔老师指点迷津！

守柔

以WORD方式打开该文件，粘贴以下代码：

Private Declare Function OpenClipboard Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "User32" () As Long
Private Declare Function GetClipboardData Lib "User32" (ByVal uFormat As Long) As Long
Private Declare Function CopyEnhMetaFileA Lib "Gdi32" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Private Declare Function DeleteEnhMetaFile Lib "Gdi32" (ByVal hdc As Long) As Long
Public Sub SavePic()
Dim myPath As String, myTable As Table, strName As String
Dim i As Cell, myRange As Range
myPath = "D:\" '修改你的代码
Application.ScreenUpdating = False
With ActiveDocument
Set myTable = .Tables(1)
For Each i In myTable.Range.Cells
Set myRange = .Range(i.Range.Start, i.Range.End - 1)
If i.Range.InlineShapes.Count = 1 Then
Set myRange = .Range(i.Previous.Range.Start, i.Previous.Range.End - 1)
If myRange = "" Then
strName = Timer
Else
strName = myRange
End If
i.Range.InlineShapes(1).Range.Copy
OpenClipboard 0
DeleteEnhMetaFile CopyEnhMetaFileA(GetClipboardData(14), myPath & strName & ".JPG")
CloseClipboard
End If
Next
End With
Application.ScreenUpdating = True
End Sub
'----------------------

相关链接：http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=425569&id=80674&page=1&skin=0&Star=5

[此贴子已经被作者于2005-12-7 11:06:41编辑过]

w7321

非常感谢守柔老师：

我还以为以前我的想法是异想天开的，没想到再难的问题在守柔老师这里也有解决的办法。不过我在粘贴到WORD里运行时又出现了一个问题。不知是否和OFFICE的版本有关，还是我将代码粘错了地方，我的版本是2000的，再次烦请守柔老师！

守柔

把你第一句SUB MACRO1 和最后一句END SUB 删除即可。

发蓝部分是API声明。

w7321

您是阿的再生父母呀，非常感谢您！您以前给俺的代码帮助省了俺一个月的工作量，这次又会节省好多的时间呀，又不会有那么辛苦，真不知该怎么报答您才好！

w7321

守柔老师：

生成的文件有3千多K呀，我要用PHOTOSHOP压缩一下，但是好象打不开呀，或者用WORD代码生成文件的时候可不可以限制一下文件大小呢？

gues1688

以下是引用守柔在2005-12-7 11:04:29的发言：

相关链接：http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=425569&id=80674&page=1&skin=0&Star=5

学习！

另外您链接中的代码为何老是有可能出错，我知道是什么原因了，我已经在该贴后面回复了，不知道是否可行？

守柔

以下是引用gues1688在2005-12-7 21:24:25的发言：

学习！

另外您链接中的代码为何老是有可能出错，我知道是什么原因了，我已经在该贴后面回复了，不知道是否可行？

谢谢gues1688。

你所说的这个问题，是存在的，因机器配制不同，有个时间差，SHELL的异步执行的理解也是正确的。

现在的问题是：

不同的操作系统，可能会有截然不同的结果，主要就是出错！

对于图片大小的问题，我目前用了几种方法，效果不佳，如果我有时间，我会继续解决此问题。