将剪贴板中的图像粘贴到Excel中

我有一个Excel电子表格，我已经build立了一个窗体，我需要在签名中添加工作簿中不同选项卡上的几个范围。

我有这个代码，它将从剪贴板粘贴到我的工作表，它似乎只想粘贴在工作表的左上angular，不想调整到设置的值。

我怎样才能把它粘贴到我想要的尺寸和我想要的尺寸上？ 从这里我将要能够复制这个和粘贴到其他几个不同范围的位置的工作表

Sub Signatures() Sheets("MySheet1").Select Range("A11").Select ActiveSheet.Paste Selection.ShapeRange.ScaleHeight 0.8513513514, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleWidth 0.9399224806, msoFalse, msoScaleFromTopLeft End Sub 

Answer 1

我的过程是，打开油漆内的jpg文件做select复制，点击复制，进入excel工作簿并点击签名button。 然后，我希望它将复制的签名粘贴到我想要的位置，并将其大小设置为我将预先确定的相关大小。 什么是更好的方法来做到这一点？

保存JPG文件。 假设您将其保存为"C:\Signature.Jpg"

试试这个代码

 Sub InsertSignatures() Dim ws As Worksheet Dim ImgPath As String Dim W As Double, H As Double Dim L As Long, T As Long Set ws = ThisWorkbook.Sheets("MySheet1") '~~> Change this to the releavnt pic file ImgPath = "C:\Signature.Jpg" With ws W = 100 '<~~ Width H = 100 '<~~ Height L = .Range("A11").Left '<~~ Left Position for image T = .Range("A11").Top '<~~ Top Position for image With .Pictures.Insert(ImgPath) With .ShapeRange .LockAspectRatio = msoTrue .Width = W .Height = H End With .Left = L .Top = T .Placement = 1 End With End With End Sub 

OUTPUT