各位大虾看看

Question

系统参数 
.Range("d5").Value = Str$(12345) 
.Range("c10").Value = Str$(23456) 
.Range("c11:f23").Picture = Clipboard.GetData() 这个好象不是VBA了，你用Excel录制一个宏，再复制代码替换以上代码即可！

Answer 1

请注意，Range无Picture属性，需用表单的Paste方法实现将你的这段代码： .Range("c11:f23").Picture = Clipboard.GetData() 
更改如下：
  .Paste Destination := .Range("c11:f23") 或
  .Paste(.Range("c11:f23"))