Paste Screen Shot Into Set Range

How How · Apr 1st 2016

Hi,
I have code that very nearly does what I want...... When I paste the screen shot into a range it pastes into he correct first row, first col, last col..................... But ignores the last Row anyone got a clue?

Code

lFirstRow = 7
lLastRow = 23
lFirstColumn = 1
lLastColumn = 12
Set rng = Range(Cells(lFirstRow, lFirstColumn), Cells(lLastRow, lLastColumn))
With pic
    .Height = rng.Height
    .Width = rng.Width
    .Left = rng.Left
    .Top = rng.Top
    
    
End With
pic.SendToBack
End Sub

Display More

Fuzz-Head · Apr 1st 2016

Re: Paste Screen Shot Into Set Range

Try your sequence something like this?

Code

Sub Test()




Dim ws As Worksheet
Dim shImg As Shape
Dim sinL As Single, sinT As Single, sinH As Single
Dim rRange As Range




Set ws = ActiveSheet
Set rRange = ws.Range("A7").Resize(23, 12)




With rRange
    'Your first row and first column
    sinT = .Top
    sinL = .Left
    sinH = .Height
End With
    
    Set shImg = ws.Shapes.AddPicture("C:\PicSave\CS3900_pic.jpg", msoFalse, msoTrue, sinL, sinT, -1, -1)




    'Now with your Pic loaded, resize it
    shImg.Height = sinH




End Sub

Display More

How How · Apr 1st 2016

Re: Paste Screen Shot Into Set Range

Thanks Fuzz-Head, however its screen shots I'm dealing with & when/If I get this working there will be a few screen shots I will be pasting (Via a button) so no pictures will be saved. The height seems dependant on the size of the screen shot....... I have it set to start at row 7 & stop at row 23 but although it starts at row 7 it wont stop at row 23?

How How · Apr 1st 2016

Re: Paste Screen Shot Into Set Range

Sorry.... If I simply Copy & Not "Alt Cntl Del" my code works perfectly..... So simple.... And so was the solution :hammerhe:

Paste Screen Shot Into Set Range

Participate now!

Share

Users Viewing This Thread