將剪貼板中的圖像粘貼到Excel中

Question

我有一個作爲表單構建的excel電子表格，我需要在工作簿中的不同標籤上的多個範圍中添加簽名。

我已經有了這段代碼，它將從剪貼板粘貼到我的工作表上，它似乎只想粘貼到工作表的左上角，並且不想調整爲設置的值。

我怎樣才能把它粘貼到我想要的尺寸和我想要的尺寸上？從這個我會希望能夠複製這一點，並粘貼到其他數張具有不同範圍的位置

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文件進行選擇複製，點擊複製，進入excel工作簿並點擊地點簽名按鈕。然後我希望它將複製的簽名粘貼到我想要的位置，並將其大小設置爲我將預先確定的相關大小。 什麼是更好的方法來做到這一點？

保存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 

輸出