How to copy a named range into Paint?

[Chris Williamson]

Hi guys,</SPAN></SPAN>

Can somebody please help me with this little task that I’m stuck with?</SPAN></SPAN>

What would the vba macro code be to:</SPAN></SPAN>

1. Select the named range “S_Shot”</SPAN></SPAN>
2. Copy this range to the clipboard (Ctrl + C)</SPAN></SPAN>
3. Open the application “Paint”</SPAN></SPAN>
4. Then paste the copied range into Paint.</SPAN></SPAN>

This is the code that excel recorded for the first two steps.</SPAN></SPAN>

Sub Macro1()</SPAN></SPAN>
Application.Goto Reference:="S_Shot"</SPAN></SPAN>
Selection.Copy</SPAN></SPAN>
End Sub</SPAN></SPAN>


Thanks for your help

Chris

 

[Trevor G]

Try this out. I am suggesting using SendKeys to give you the paste option

Sub CopyToPaint()
Dim vetral As String
Range("The cells").Copy
vetral = Shell("msPaint.exe", vbNormalFocus)
Application.SendKeys ("^V")

End Sub

 

[Trevor G]

Sligth change you need to use the delay before it will paste into Paint.

Sub CopyToPaint()
Dim vetral As String
Range("D4").Copy
vetral = Shell("msPaint.exe", vbNormalFocus)
Delay 3
Application.SendKeys "%ep"

End Sub
Private Sub Delay(sec)
Dim newHour   ' = Hour(Now())
Dim newMinute ' = Minute(Now())
Dim newSecond ' = Second(Now())
Dim waitTime  ' = Delay time in Secs
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + sec
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub

 

[Chris Williamson]

Thanks Trevor G

 

[Trevor G]

Your welcome Chris