PDA

View Full Version : Copy a .jpeg



chem101
10-22-2010, 11:42 AM
Hello Everyone,

I need your help. I'm using code to copy a small .jpeg pic from one worksheet to another. Both worksheets are within the same workbook. The destination of the pic is based on a conditional formula within the code. When I click the control button to copy the pic, the screen flickers while the copying is in progress. Is there any way to keep the screen from flickering? Please advise.

Thank you for your assistance.

mdmackillop
10-22-2010, 11:44 AM
Have you tried
Application.ScreenUpdating = False

chem101
10-22-2010, 01:05 PM
This is what I've been trying.

Thank you!

Sub CopyWHMSTRPic()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.ScreenUpdating = False
If Range("InputboxStyle").Value = "RSC" And Range("InputJoint").Value = "Tape3" Then

ws.Range("i33:ab45").CopyPicture
Application.ScreenUpdating = False
Worksheets("WH Master").Activate
Worksheets("WH Master").Range("c22").Activate
Worksheets("WH Master").Paste
End If

wksNewOrder.Activate
Range("A1").Select
Range("OrderNumber").Select
Application.ScreenUpdating = True

End Sub