hi
i want to copy a range from excel to paint (as jpeg) (the new name of the paint is "test")
i wrote this code but it is not work
Sub test1()
'
On Error Resume Next
Dim paint
paint = Shell("c:\WINDOWS\system32\mspaint.exe", 1)
Worksheets("sheet1").Activate
Sheets("sheet1").Select
Range("a1:d380").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
AppActivate "untitled - paint"
Application.SendKeys "(^v)", 50
Application.SendKeys "%{f4}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{ENTER}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "test", 10
Application.SendKeys "{tab}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{j}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{enter}", 10
End Sub
i want to copy a range from excel to paint (as jpeg) (the new name of the paint is "test")
i wrote this code but it is not work
Sub test1()
'
On Error Resume Next
Dim paint
paint = Shell("c:\WINDOWS\system32\mspaint.exe", 1)
Worksheets("sheet1").Activate
Sheets("sheet1").Select
Range("a1:d380").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
AppActivate "untitled - paint"
Application.SendKeys "(^v)", 50
Application.SendKeys "%{f4}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{ENTER}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "test", 10
Application.SendKeys "{tab}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{j}", 10
Application.Wait Now + TimeSerial(0, 0, 2)
Application.SendKeys "{enter}", 10
End Sub