Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autoshape textbox
I want to copy a textbox in its entirity and paste it to a location on
another sheet inside the same workbook prior to printing the sheet. ActiveSheet.Shapes("Text Box 17").Select Selection.Copy Sheets("Pre Bid PRNT").Select Range("A28").Select ActiveSheet.Paste Sheets("Pre Bid PRNT").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Pre Bid PRNT").Select Sheets("Pre Bid").Select It is failing on the Range("A28").Select statement If I remove it I get results but it is pasted in "A1". i want it to appear further down the sheet. Any ideas what is wrong? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autoshape textbox
Your probably running this code from a sheet module. so you need to qualify
that statement with the sheet name: ActiveSheet.Shapes("Text Box 17").Select Selection.Copy With Sheets("Pre Bid PRNT") .Select .Range("A28").Select .Paste .PrintOut Copies:=1, Collate:=True End With Sheets("Pre Bid").Select -- Regards, Tom Ogilvy wrote in message oups.com... I want to copy a textbox in its entirity and paste it to a location on another sheet inside the same workbook prior to printing the sheet. ActiveSheet.Shapes("Text Box 17").Select Selection.Copy Sheets("Pre Bid PRNT").Select Range("A28").Select ActiveSheet.Paste Sheets("Pre Bid PRNT").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Pre Bid PRNT").Select Sheets("Pre Bid").Select It is failing on the Range("A28").Select statement If I remove it I get results but it is pasted in "A1". i want it to appear further down the sheet. Any ideas what is wrong? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autoshape textbox
Does this help?
Sub copyshape() Sheets("sheet7").Shapes("Text Box 45").Copy Application.Goto Sheets("Sheet4").Range("c12") ActiveSheet.Paste Sheets("sheet4").PrintOut End Sub -- Don Guillett SalesAid Software wrote in message oups.com... I want to copy a textbox in its entirity and paste it to a location on another sheet inside the same workbook prior to printing the sheet. ActiveSheet.Shapes("Text Box 17").Select Selection.Copy Sheets("Pre Bid PRNT").Select Range("A28").Select ActiveSheet.Paste Sheets("Pre Bid PRNT").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Pre Bid PRNT").Select Sheets("Pre Bid").Select It is failing on the Range("A28").Select statement If I remove it I get results but it is pasted in "A1". i want it to appear further down the sheet. Any ideas what is wrong? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autoshape textbox
I applied Toms changes from above and that worked for me.
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Autoshape textbox
Whatever floats your boat
-- Don Guillett SalesAid Software wrote in message oups.com... I applied Toms changes from above and that worked for me. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Highlight all Text in a Textbox when the textbox is selected | Excel Programming | |||
HELP! I Lost The Ability To Advance From TextBox To TextBox With the ENTER Or The TAB Keys | Excel Programming | |||
Textbox Bug? Missing/delayed update of textbox filled via VBA | Excel Programming | |||
Textbox Bug? Missing/delayed update of textbox filled via VBA | Excel Programming | |||
UserForm TextBox to ActiveSheet TextBox over 256 characters | Excel Programming |