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 here:
> 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 ?
|
Similar Threads
