|
Copy image to tabs
I'm having a problem copying an image embedded on a template into a second
workbook. The image "Picture 1" is on a template called "Test.xlt". It is copied to a tab called "Blank" in the main workbook and then onto all subsequent tabs. The first part of the following code works - copying the image from the template to blank and repositioning the image. The problem occurs after copying the image from Blank to the next tab. Each tab is activated in order and unprotected prior to this call: If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Select Selection.Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue Any suggestions ? |
Copy image to tabs
You should be getting an error he
Sheets("Blank").Shapes("Picture 1").Select that code doesn't execute unless Blank is not the activesheet. You can't select the Picture unless Blank is the activesheet. So I believe you misinterpret where the error occurs. If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue -- Regards, Tom Ogilvy "Dan Kelly" wrote: I'm having a problem copying an image embedded on a template into a second workbook. The image "Picture 1" is on a template called "Test.xlt". It is copied to a tab called "Blank" in the main workbook and then onto all subsequent tabs. The first part of the following code works - copying the image from the template to blank and repositioning the image. The problem occurs after copying the image from Blank to the next tab. Each tab is activated in order and unprotected prior to this call: If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Select Selection.Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue Any suggestions ? |
Copy image to tabs
I got the code to work by adding a select here in the code
Sheets("Blank").Select Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Select It wasn't pasting the picture on my sheet two until I added the select. Then it did not give an error until the picture was moved. "Dan Kelly" wrote: I'm having a problem copying an image embedded on a template into a second workbook. The image "Picture 1" is on a template called "Test.xlt". It is copied to a tab called "Blank" in the main workbook and then onto all subsequent tabs. The first part of the following code works - copying the image from the template to blank and repositioning the image. The problem occurs after copying the image from Blank to the next tab. Each tab is activated in order and unprotected prior to this call: If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Select Selection.Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue Any suggestions ? |
Copy image to tabs
Since Joel raised some doubt, I tested the code. The code I posted works
fine for me without further modification. -- Regards, Tom Ogilvy "Tom Ogilvy" wrote: You should be getting an error he Sheets("Blank").Shapes("Picture 1").Select that code doesn't execute unless Blank is not the activesheet. You can't select the Picture unless Blank is the activesheet. So I believe you misinterpret where the error occurs. If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue -- Regards, Tom Ogilvy "Dan Kelly" wrote: I'm having a problem copying an image embedded on a template into a second workbook. The image "Picture 1" is on a template called "Test.xlt". It is copied to a tab called "Blank" in the main workbook and then onto all subsequent tabs. The first part of the following code works - copying the image from the template to blank and repositioning the image. The problem occurs after copying the image from Blank to the next tab. Each tab is activated in order and unprotected prior to this call: If ActiveSheet.Name = "Blank" Then ' This all works Workbooks.Open FileName:="Test.xlt" ActiveSheet.Shapes("Picture 1").Select Selection.Copy ActiveWindow.Close Sheets("Blank").Activate ActiveSheet.Unprotect ActiveSheet.Paste Else ' It appears that I can copy "Picture 1" Sheets("Blank").Unprotect Sheets("Blank").Shapes("Picture 1").Select Selection.Copy ' Paste to current tab appears to work ActiveSheet.Paste End If ** Problems occur here on second pass** Selection.ShapeRange.Top = 29.25 Selection.ShapeRange.Left = 323.25 Selection.ShapeRange.Height = 44.25 Selection.ShapeRange.LockAspectRatio = msoTrue Any suggestions ? |
| All times are GMT +1. The time now is 05:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com