各位大虾看看

gongwen 2002-03-12 11:29:44

......

Set MyXL = CreateObject("Excel.application")
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject(sFile)

Form1.Picture1.AutoRedraw = True

Clipboard.Clear

Clipboard.SetData Form1.Picture1
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
With MyXL.Worksheets("Sheet1")
'系统参数
.Range("d5").Value = Str$(12345)
.Range("c10").Value = Str$(23456)
.Range("c11:f23").Picture = Clipboard.GetData()
End With

Form1.Picture1.AutoRedraw = False
MyXL.Application.Save
If ExcelWasNotRunning = True Then
MyXL.Application.Quit
End If

运行后在excel中得不到图形

...全文

53 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

网络咖啡 2002-03-13

打赏
举报

学习

gongwen 2002-03-13

打赏
举报

怎样录制宏

yanz 2002-03-12

打赏
举报

请注意，Range无Picture属性，需用表单的Paste方法实现

将你的这段代码： .Range("c11:f23").Picture = Clipboard.GetData()
更改如下：
.Paste Destination := .Range("c11:f23") 或
.Paste(.Range("c11:f23"))

Bardo 2002-03-12

打赏
举报

系统参数
.Range("d5").Value = Str$(12345)
.Range("c10").Value = Str$(23456)
.Range("c11:f23").Picture = Clipboard.GetData()

这个好象不是VBA了，你用Excel录制一个宏，再复制代码替换以上代码即可！