如何使用Excel中的VBA将剪贴板图像粘贴到下一个空单元格中

时间:2017-06-06 23:25:32

标签: excel vba excel-vba

我研究过网络,却找不到能帮到我的解决方案。

我有一张Excel工作表并创建了一个具有InkPicture Box的UserForm,并设置为允许某人打开用户表单并绘制他们的签名。分配了一个CommandButton来获取签名并将其复制到剪贴板。然后将其粘贴到Excel工作表中(现在,如果您只想完成此操作,这很容易)

我的需求如下: 我需要将复制到剪贴板的InkPicture图像粘贴回工作簿Sheet1的C列中的下一个可用(空)单元格:Gaming User Data.xlsm

我在所有研究中取得的最大成就是以下代码:

Private Sub CommandButton3_Click()

InkPicture1.Ink.ClipboardCopy

Set newImg = Selection

With newImg
  .Range(.Rows.Count).End(xlUp).Offset(1, 0).Paste

  .Width = 30
  .Height = 10
End With

End Sub

此代码给出了一个错误,指出“对象不支持此属性或方法”并突出显示以下行作为原因:       “.Range(.Rows.Count).End(xlUp).Offset(1,0).Paste”

其他代码实际上已成功地将剪贴板图像复制到工作表中,但在任意位置,您只能更改粘贴所有油墨的一般位置(这会将所有签名放在彼此之上,如下所示另一个)。

请指导我正确的方向!允许将捕获的墨水设置在下面的下一个可用空单元格中的特定列中的代码是什么。

0 个答案:

没有答案