| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 ? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 ? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy and paste an image | Excel Discussion (Misc queries) | |||
| printing multiple sheet tabs to image file | Excel Discussion (Misc queries) | |||
| Copy & paste image from UserForm | Excel Programming | |||
| copy shape image into image control | Excel Programming | |||
| Copy image of UserForm to a clipboard | Excel Programming | |||
Linear Mode
