Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macros between two seprate windows (excel)
What I am trying to do, is to copy a spreadsheet from one Excel window and
paste it into a new window. But when I paste this, I need it to paste it as a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a run time error '1004.' How can do this? Macro: ' Select area Range("A4:I46").Select Selection.Copy ' Open new EXCEL SHEET ' ' Specifying 1 as the second argument opens the application in ' normal size and gives it the focus. Dim RetVal RetVal = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1) ' Application.Wait (Now + TimeValue("0:00:03")) ' ' Paste IU as picture so that the format is not changed and still contains boxes ' 'Sheets("Sheet1").Select Range("A1").Select 'ActiveSheet.Paste ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False How can I run a macro between two separate excel windows? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macros between two seprate windows (excel)
Patrick,
You are looking at this problem in the wrong manner. It is quite simple. Have 2 Excel windows open (first open excel make small then open excel again) in the excel window that has your work in it simply right click on the tab and make copy moving to the new workbook. should you have any other problems with this just email me. "Patrick" wrote: What I am trying to do, is to copy a spreadsheet from one Excel window and paste it into a new window. But when I paste this, I need it to paste it as a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a run time error '1004.' How can do this? Macro: ' Select area Range("A4:I46").Select Selection.Copy ' Open new EXCEL SHEET ' ' Specifying 1 as the second argument opens the application in ' normal size and gives it the focus. Dim RetVal RetVal = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1) ' Application.Wait (Now + TimeValue("0:00:03")) ' ' Paste IU as picture so that the format is not changed and still contains boxes ' 'Sheets("Sheet1").Select Range("A1").Select 'ActiveSheet.Paste ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False How can I run a macro between two separate excel windows? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macros between two seprate windows (excel)
Patrick,
Do you really need to work with 2 instances of Excel ? If yes, then use automation instead of Shell. NickHK "Patrick" wrote in message ... What I am trying to do, is to copy a spreadsheet from one Excel "window" and paste it into a new "window". But when I paste this, I need it to paste it as a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a run time error '1004.' How can do this? Macro: ' Select area Range("A4:I46").Select Selection.Copy ' Open new EXCEL SHEET ' ' Specifying 1 as the second argument opens the application in ' normal size and gives it the focus. Dim RetVal RetVal = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1) ' Application.Wait (Now + TimeValue("0:00:03")) ' ' Paste IU as picture so that the format is not changed and still contains boxes ' 'Sheets("Sheet1").Select Range("A1").Select 'ActiveSheet.Paste ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False How can I run a macro between two separate excel windows? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to use Windows command within Excel macros | Excel Discussion (Misc queries) | |||
Windows Mobile 6.1 Pocket Excel & Macros / VBA | Excel Discussion (Misc queries) | |||
Running Windows-Excel macros on Macintosh | Excel Programming | |||
Excel 97 Macros in Later Version of Windows | Excel Programming | |||
Macros disabled on all but one of 3 windows in excel | Excel Programming |